Dim inputCode As Integer = Console.Read()
Console.Read()
awaits input from the user and, upon receipt, returns an integer value corresponding with the character code of the entered character. If the input stream is ended in some way before input can be obtained, -1 is returned instead.