Imports System

Public Module Module1

    Public Sub Main()

        Dim Name as string = "nudy"

        Dim Password as string = "gangonly"

        Dim UserInput as string = " "

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

        Name = Console.ReadLine()

        Do While UserInput <> Password

            Console.WriteLine(Name + "Enter your Password.")

            UserInput = Console.ReadLine()

        Loop

        Console.WriteLine("Success")

    End Sub

End Module