Imports System

Public Module Module1

    Public Sub Main()

        dim user as string

        dim password as integer

        dim tries as integer = "3"

        dim success as integer = "0"

        While tries > 0 AND success = "0"

        Console.WriteLine("Enter Your Username")

        user=Console.ReadLine()

        Console.WriteLine("What is your password")

        password=Console.ReadLine()

        if user = "JRT" OR user = "jrt" AND password = "123" then

            success = success + 1

        else

            Console.WriteLine("Incorrect")

            tries = tries-1

            Console.WriteLine("Attempts remaining " & tries)

        end if

        end while

        if success = "1" then

            console.WriteLine("Your in")

        else

            console.WriteLine("Goodbye")

        end if 

    End Sub

End Module