Use Do Loop to read user input

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