Mega Code Archive
Use Do Loop to read user input
<![CDATA[
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.
]]>