Geht leider nicht.
Was soll das den bringen?
Ir_command ist beim ersten Durchlauf noch nicht definiert.

Nochmal zum verständnis, du meintest:
Code:
'/////////////////Funktion zum RC5 empfangen und warten\\\\\\\\\\\\\\\
Sub Wait_and_get(byval Ms As Byte)
Last_ir_command = Ir_command
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)

 If Ir_command = 255 Then                                   'wenn nichts emfangen wird,
  Ir_command = Last_ir_command                              'dann akt. Programm weiter
 Else                                                       'ausführen
  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
 End If



End If

Waitms Ms                                                   'warten
End Sub