Imports System

Public Module Module1

    Public Sub Main()

        Dim intMaxGuesses as integer = 3

        Dim intGuessCount as integer = 1

        Dim strUserName = "Ryan"

        Dim strpassword as string = "VB.Net"

        do

            console.WriteLine(("Enter your user name:"))

            Dim struser as string = console.ReadLine()

​

            console.WriteLine(("Enter your user password:"))

            Dim strpwd as string = console.ReadLine()

            If struser = strUserName and strPassword = strpwd

                console.WriteLine("ACESS GRANTED!")

                Exit do

            else

                if intGuessCount < intMaxGuesses

                    console.WriteLine("Username/Password is not correct")

                else

                    console.WriteLine("ACCESS DENIED!")

                end if

            End if

            intGuessCount += 1

        loop while intGuessCount<=intMaxGuesses

    End Sub

End Module