Imports System

Public Module Module1

    Public Sub Main()

        dim password, pass_input as string

        dim key as boolean

        password = "secret"

        key = True

        Do while key = True

            console.writeline("Password - ")

            pass_input = console.readline()

            if pass_input = password then

                console.writeline("Welcome")

                key = False

            else: 

                console.writeline("Incorrect password! Try again")

​

            End if

        Loop

    End Sub

End Module