Die Zahl sollte 62 sein für 1000 HZ. das reset für H_FLAG ?

If H_flag = 1 Then
H_flag = 0 ' fehlt das ?
Incr H
End If