Imports System

Public Module Module1

    Public Sub Main()

        Dim Username as String

        Console.WriteLine("Please enter your username here")

        Username = Console.ReadLine()

        If Username = "VBUser" then

            Dim Password as String

            Console.WriteLine("Enter your password here")

            Password = Console.ReadLine()

            If Password = "VBUser" then

                Console.WriteLine("Loading, your entry will be granted shortly")

            Else

                Console.WriteLine("Please re-enter your password")

            End If

        Else

            Console.WriteLine("Login Failure  HINT: The Username is case-sensitive")

        End If

    End Sub

End Module