...wie schaltest Du denn Deinen Eingang ?
Wenn er nämlich (mit gesetztem Pullup) gegen Minus schaltet, dann ist es nämlich so richtig :
"If Pinc.0 = 0 Then"

...ansonsten läuft er nämlich sofort los und hält nur bei gedrücktem Schalter auf zu zählen.

ausserdem brauchst Du :
Else
S = S + 0
...nicht !