Console.Write("What is my name: ")
Dim input As String = Console.ReadLine()
Do While input <> "David"
Console.WriteLine("Nope, that is not it.")
Console.Write("What is my name: ")
input = Console.ReadLine()
Console.WriteLine("Good job! My name is David.")
Console.WriteLine("What is my name: ")
input = Console.ReadLine()
Console.WriteLine("Nope, that is not it.")
Loop While input <> "David"
Console.WriteLine("Good job! My name is David.")