@dremler
Wenn ich die Schnittstelle mit meinem Programm geöffnet habe kann da kein anderes Programm (auch ned XP) was machen.


@MALIBOO
das Dta müßte dann natürlich größer werden
Code:
If Ucsra.rxc = 1 Then                                     'Falls ein Byte im UART-Puffer...
  Empfang = Udr                                            'Byte einlesen
  Senden = Lookup(Empfang , Dta)                 'Byte zum Senden aus Tabelle lesen
Udr=Senden

                                                 
End If

Dta:

Data 1 , 2 , 3 , 4 , 5