Im ersten Post ist das Programm für die dort angegebenen IR-Codes.
Dort sind immer Blöcke enthalten, die jeweils einen bestimmten Code entschlüsseln. In deinem Programm waren nur die Blöcke für RC5 und SIRCS enthalten.
Wenn es gar nicht funktioniert, kannst du mal testweise diese Zeilen
Code:
   If Code_found = 1 And Flanken_anzahl > 0 Then
      Disable Int0
      Cls
      Lcd Flanken_anzahl ; ":"                              'Jetzt geht es an die Erkennung des Codes
      For I = 1 To Flanken_anzahl
         Lcd Imp_array(i) ; " "
      Next I
anstelle der Zeile
If Code_found = 1 Then 'Jetzt geht es an die Erkennung des Codes
direkt hinter dem Do ein.
Sollte dir auf dem LCD die Anzahl der Flanken und die Längen ausgeben.

Gruß

Rolf