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