Übrigens wären Satzzeichen und Groß/Kleinschreibung auch nicht schlecht, daduch ist manches einfacher zu verstehen.

Ich benutze diese einfache Routine mit einen Mega8/16Mhz:
Config Timer1 = Timer , Prescale = 1024
Dim Rx1 As Word

Checkrx:
Bitwait Pinc.4 , Set 'Auf positive Flanke warten
Tcnt1l = 1 'Zaehler starten
Bitwait Pinc.4 , Reset 'Auf negative Flanke warten
Rx1 = Tcnt1l
Return