Achso ja stimmt vergessen^^ wäre ja dann
Code:
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
  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
 End If



End If

Waitms Ms                                                   'warten
End Sub
Leider geht das auch nicht, der RS232 kommt auch nur halb an.. ah ich glaub ich muss das Programm mal komplett überholen.