probier mal das:

Code:
Sub Wait_and_get(byval Ms As Byte)

Getrc5(ir_address , Ir_command)                             'Empfangen

'Wenn was empfangen dann reagieren
If Ir_address <> 255 Then
 Ir_command = Ir_command And &B01111111                     'Togglebit entfernen

 'Hier die Codes an die Fernbedienung anpassen
 Print "IR Befehl: " + Str(ir_command)
End If

 If Ir_command = 255 Then Ir_command = Last_ir_command                                  'wenn nichts emfangen wird,
 
 Last_ir_command = Ir_command
 If Ir_command = 17 Then Gosub Programm1
 If Ir_command = 18 Then Gosub Programm2
 If Ir_command = 19 Then Gosub Programm3
 If Ir_command = 20 Then Gosub Programmr


Waitms Ms                                                   'warten
End Sub