Erst klemmst du deinen Taster zwischen DigiInput 1 und GND an. Dann machst du in VB einen timer mit z.B. 250ms der folgendes ausführt:
SoOftWurdeGedrueckt = Readcounter(1)

Das sollte doch funktioneiren...? Wo sind deine Schwierigkeiten? Poste doch mal deinen Code.