habe deine orginalcode vom ersten thread genommen und den
debounce befehl ersetzt mit

If Pind.4 = 0 Then Programm

jetzt springt es ins sub und schreibt im sim mir auch den text
"programm".warum auch immer es bei debounce nicht funzt
weiss ich auch nicht,teste es halt mal.setzte die zeit vom waitms 200
ruhig mal auf 2 sekunden.