Imports System

Public Module Module1

    Public Sub Main()

        Dim strusername As String = "LA12345"

        Dim strpassword As String = "8kobe24"

        Dim i As Integer = 0

        Do While i <= 3

        If strusername = Console.ReadLine() And strpassword = Console.ReadLine Then

                Console.WriteLine( "You are now logged in." )

                i = 4

            Else 

                    Console.WriteLine( "Incorrect Username or Password" )

                    i = i + 1

            If i >= 3 Then

                    Application.Exit()

            End If

        End If

        Loop

    End Sub

End Module