Das kann man mit dem Inkey () Befehl machen.
Syntax dazu:

Dim A as byte

Do

A = Inkey()

If a = XXX Then
mach was
end if

loop

end

Ist ein einfaches Beispiel in dem die Variable A den (Byte)Wert annimmt der per RS 232 gesendet wurde.

MfG

Neutro