ok, das ist dann einfach. Du wirst halt a bisserl rechenleistung verbraten, weil du den Eingang pollen mußt.

Also mal ein Muster, frei aus dem Kopf geschrieben, mußt als eventuell a bisserl korrigieren.
Alles was du brauchst, ist ein Flag, das du setzt, sobald der eingang auf 1 geht. das löscht du wieder, wenn er wieder auf 0 ist.

Dim liCounter, liCounterflag
liCounterflag = 0
liCounter = 0
While 1 = 1 ' Hier mußt du halt eine geeignete Abbruchbedingung einsetzen ( Ein button etc)
liInput = readdigitalinput 1
If liInput = 1 And liCounterflag = 0 Then
liCounter = liCounter + 1
liCounterflag = 1
End If
If liInput = 0 Then liCounterflag = 0
Text1.Text = liCounter
DoEvents

Wend



lg

Alex