Module Module1 Sub Main() Dim strChar As String Console.Write("Enter a character: ") strChar = Console.ReadKey.KeyChar 'strChar = Console.ReadKey(True).KeyChar Console.WriteLine() Console.WriteLine("You just entered {0}.", strChar) End Sub End Module