Imports System

​

Public Module Module1

​

    Public Sub Main()

        'This is the first username string'

        dim username as string

        console.writeline("Enter your username")

        username = console.ReadLine

        dim password as string

        console.WriteLine("Enter your password")

        password = console.ReadLine

        if username = "sol" then

            if password = "drapegrape12" then

                console.writeline("Welcome")

            else

                console.WriteLine("Try again")

            end if

        'This is the second one which is just the first one but tweaked a bit'

        elseif username = "tree" then

            if password = "threetree" then

                console.writeline("Welcome")

            else

                console.WriteLine("Try again")

            end if

        else

            console.WriteLine("Try again")

        end if

    End Sub

End Module

​