also egal auf welche taste ...er soll auf jede reagieren ...also so

Dim A As Byte

Schleife:
Do
A = Inkey()
If A > 0 Then Exit Do
Loop

Print "Taste " ; A ; " wurde getrückt"
Goto Schleife

End