Imports System

Public Module Module1

    Public Sub Main()

        dim i as integer = 0

        dim pass as string = "qwert"

        dim input as string = ""

        Console.WriteLine("please enter your password")

        input = console.readline()

        do

        If input = Pass Then

                Console.WriteLine("Well done")

                console.readline()

        Else

                Console.WriteLine("Try again")

                console.readline()

        End if

            i = i + 1

        loop until input = pass or i = 2

    End Sub

End Module