Language Basics VB.Net Tutorial

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.