Imports System

Public Module Module1

    Public Sub Main()

        'My variables

        Dim username as String

        Dim password as String

        Dim retry as String = 3

        'Enter username and password

        Console.WriteLine(" Enter your Username: ")

        Username = Console.ReadLine()

        Console.WriteLine("Enter your Password: ")

        Password = Console.ReadLine()

        If username = "JayB6" AND password = "1234" then

            Console.WriteLine("Logging in")

        Else

            Console.WriteLine("Incorrect, Please try again")

        Loop

        End if

​

    End Sub

End Module