if schleife die usb abfragt.

[goara]

hallo
will eine if verzweigung haben, die abfragt ob eine bestimmte taste gedruckt wird und dann etwas macht...
habe mir das so vorgestellt:

Dim Eingabe As Byte
Wait 1
Print #4 , "USB- eingabe ( a links d rechts w auf s zu)"
Do
If Chr(eingabe) = "a" Then
M_6_v = 1
M_6_e = 1
M_6_r = 0
Waitms 100
M_6_v = 0
M_6_v = 0
M_6_v = 0
Endif
Loop

was is daran falsch??
kann bis jetz nich so wirklich basic ) danke shcon mal