Hallo Robert.

Wie gesagt hat sich erledigt.
Will Dir aber trotzdem gerne Antworten.
"schleife_sensor_test"ist nur ein Label auf den gesprungen wird.

Schleife_sensor_test:
If Sens_nr = 1 Then
Call Ir_1()
End If
If Sens_nr = 2 Then
Call Ir_2()
End If
If Sens_nr = 3 Then
Call Ir_3()
End If
If Ischarwaiting() = 1 Then
Input Empfangen
If Empfangen = "sensor aus" Then
Print "Sensor aus"
Sensor_test = 0
Exit Sub
End If
End If
Goto Schleife_sensor_test

Ich verstecke nix
Alles Da.

Gruß
Thomas