Hinter :

If N = 255 Then
A = A + 1



Fehlt noch das "N=0" sonst läuft N gegen unendlich....