Ich hatte den Empfängercode nochmal etwas abgeändert:

Isrlabel:

Incr E_id
Daten(e_id) = Udr

If E_id = 5 And Daten(1) = 128 And Daten(2) = 255 Then
For B = 1 To 5
Datenspeicher(b) = Daten(b)
Daten(b) = 0
Next B
A = 1
E_id = 0

Else
Waitms 100
E_id = 0
End If

Return

Es wird also wenn die If nicht erfüllt wird 100ms gewartet un E_id dann wieder auf 0 gesetzt. Gibt es da für meinen jetztigen code noch elegantere Arten das Problem zu lösen ?