Ja, habe einen Optokoppler eingesetzt. Hier mal meinen Code :

$regfile = "m16def.dat"
$crystal = 12000000
$baud = 31250
Baud = 31250
Dim I As Byte
Cls

Do
If Usr.rxc = 1 Then
I = Udr
Locate 1 , 1
Lcd I ; " "
End If
Loop
End

Ich beckomme immer die selben Werte, egal was ich für eine Taste am Keyboard drücke.
Manchmal auch nur eine "00000010"