Imports System
Public Module Module1
Public Sub Main()
Dim Name as string = ""
Dim While as Name <> "Pace"
Do While x < 10
Console.WriteLine("what is your name?")
Name = Console.REadLine
Loop
End Sub
End Module