Wenn ich dich richtig verstehe, willst du bei einer bestimmten Tasteneingabe eine bestimmte Ausgabe machen, oder?
Wie wärs so hiermit?
Select Case Console.ReadKey(True).KeyChar
Case "1"c
Console.WriteLine("1000")
Case "2"c
Console.WriteLine("2000")
Case Else
Console.WriteLine("Nicht Gültig!")
End Select
Console.ReadKey(True)