Module Module1

    Sub Main()
        Dim s As Char = Nothing
        While s <> "Q"
            Console.WriteLine("Enter choice: ")
            s = Console.ReadLine
        End While

    End Sub

End Module