Hmmm....

Code:
 10 = 200 Us on
...was heißt´n das??

Und warum gibst Du Dir so viel Mühe mit dem Code ab
"Dim I as Byte"
...
...

- da kommt das Programm sowieso niemals hin, weil davor ´ne Do - Loop-Schleife ist...

Außerdem fehlt irgendwo das "enable interrupts".