Imports System

Public Module Module1

    Public Sub Main()

        Dim Name as string = ""

        Dim Correct as string = "BobRoss"

        Dim Password as string = ""

        Console.WriteLine("Hello, who are you?")

        Name = Console.ReadLine()

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

        Do While Password <> Correct

            Password = Console.ReadLine()

            If Password = Correct then

                Console.WriteLine("Access Granted")

            Else If Password <> Correct then

                    Console.WriteLine("Access Denied")

            End if

        Loop

    End Sub

End Module