Module Module1
Sub Main()
Dim strInput As String
Do
Console.WriteLine("Please enter 'q' to quit...")
strInput = Console.ReadLine()
Console.WriteLine("You typed " & strInput)
Loop While (strInput <> "q")
Console.WriteLine("Quitting now.")
End Sub
End Module
Please enter 'q' to quit...
q
You typed q
Quitting now.