>Der Impuls schwankt immer so bei 3 4 und die Pause nur so bei 40

Das ändere mal das:

If Sekunde > 3 Then
K = Sekunde - 18
If Impuls > 17 Then
Minute(k) = 1
Else
Minute(k) = 0
End If
End If
Locate 1 , 19
Wert = Makebcd(sekunde) ' Umweg ueber BCD, dann fuehrende 0
Lcd Bcd(wert) ' Sekunde anzeigen
If Pause < 43 And Pause > 37 Then 'Minutenanfang