Danke für die Antwort, hab mir schon gedacht das des wirklich einfach gehalten ist.
Hab das jetzt mal fertig geschrieben, vll könnte einer von euch schnell einen Blick drüber werfen ob das so funktionieren würde/könnte?!
(sitz gerade in der Arbeit und kann das leider nicht testen)Vielleicht ist ja ein gröberer Fehler vorhanden, den man auf dem ersten Blick erkennt und ich den vor dem ersten Testen noch ausmerzen kann.

Code:
Do

 Zahl1 = 0

 Getrc5(address , Command)                                  'lese Adresse und Kommando von TSOP
                                                             
 If Address < 255 Then

          Toggold = Command.7                               '  Toggle Bit merken
          Command = Command And &B01111111                  'lösche Toggle-Bit
          Command = Command1

          Do

          Getrc5(address , Command)
          Command = Command And &B01111111
          Incr Zahl1
          Waitms 1
          Loop Until Zahl1 = 500

          Togg = Command.7
          If Togg <> Toggold Then
              Cges = Command1 * 10   
              Cges = Command1 + Command
              Cges = Command
            Else
               Goto Commandabfrage
          End If

Commandabfrage:                                             
         If Command = 12 Then                            
         Toggle Porta.0                                    
         End If
    Waitms 40

End If                                            'warte 40 Millisekunden
Loop
End
Variablen Zuweisung, Output/Input Config etc. ,hab ich mal rausgelassen das es sich schöner lesen lässt

MfG
wolper