Imports System

Public Module Module1

    Public Sub Main()

        dim password as string 

        dim username as string

        Console.WriteLine("What is your password?")

        password = Console.readline()

        Console.WriteLine("What is your username")

        username = Console.ReadLine()

        Console.writeline("Please retype your username")

        if username = Console.readline()

        Else Console.writeline("Invalid Try again")

        End if

            Console.Writeline("Type your password")

        if password = Console.readline() 

            Console.writeline("Successfully logged in, Welcome")

            Console.WriteLine(username)

        Else Console.writeline("Try again")

    End if

        End Sub

End Module