So auf den ersten Blick sehe ich nur, dass du die Variable Flanken_anzahl nicht zurücksetzt.
Also am Ende von

If Code = 1 Then
...
Flanken_anzahl=0
End If

Sonst hängt er immer hinten dran.

Gruß

Rolf