Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim username as string = nothing

        Dim password as string = nothing

        Console.WriteLine("Please enter username")

        username = console.ReadLine()

        Console.WriteLine("Please enter password") 

        password = console.ReadLine() 

        if username = "20mchalee" then

            if password = "Password" then

            Console.WriteLine("welcome Elliott")

            else

                console.WriteLine("Try Again")

            end if

        end if

    End Sub

End Module

​