Wenn du nichts zeitkritisches in der Hauptschleife machst, könntest du es auch einfach mit Waitms-Befehlen machen:

Code:
Do
    'Wurde die Taste herruntergedrückt?
    If PINC.1 = 1 Then

        Waitms 500

        'Ist die Taste nach 0.5 sek immernoch gedrückt?
        If PINC.1 = 1 Then
            'Wenn ja -> LangSub
            LangSub

            'Warten, bis Taste nicht mehr gedrückt ist
            Do
            Loop Until Not PINC.1
            Waitms 50 'Entprellen
        Else
            'Wenn nein -> KurzSub
            KurzSub
        End If
    End If
Loop
Nachdem die Taste herruntergedrückt wurde, wartet der Code 500 ms und prüft dann, ob die Taste immernoch gedrückt wird. Wenn ja wird LangSub ausgeführt und gewartet bis die Taste losgelassen wurde. Wenn ansonsten wird der Kurzsub ausgeführt.