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
Enter a character: a
You just entered a.