Imports System
Public Class Program
Public Shared Sub Main()
Console.WriteLine("Enter 'q' to quit")
Dim input As String = Console.ReadLine()
While (input <> "q")
Console.WriteLine("You typed: " & input)
Console.WriteLine("Enter 'q' to quit")
input = Console.ReadLine()
End While
Console.WriteLine("END")
End Sub
End Class
' run:
'
' Enter 'q' to quit
' C#
' You typed: C#
' Enter 'q' to quit
' VB
' You typed: VB
' Enter 'q' to quit
' Java
' You typed: Java
' Enter 'q' to quit
' q
' END
'