Imports System

Public Module Module1

    Public Sub Main()

        Dim user as string = "thomasm0720"

        Dim pass as string = "Agos2235"

        Dim userans as string

        Dim passans as string

        Dim tries as integer = 3

        Do while tries >= 1

        Console.WriteLine("Enter Username: ")

        userans = Console.Readline()

        Console.WriteLine("Enter Password: ")

        passans = Console.Readline()

        if (userans = user) and (passans = pass) then

            Console.WriteLine("Hello User")

        Else

                Console.WriteLine("Sorry, you have " & tries & " left")

                tries = tries - 1

            End if

            loop

    End Sub

End Module