Imports System

Public Module Module1

    Public Sub Main()

        dim pw as string

        console.WriteLine("the password?")

        pw = console.readline()

        if pw = "password" then

            console.WriteLine("welcome")

        else

            console.WriteLine("access denied")

        end if

    End Sub

End Module