Da sehe ich schon mal eine Sache zum Thema Debounce.
Die Hilfe sagt doch wie es geht.
Nicht "Sub Hoch" sondern "Hoch:"
Nicht "End Sub" sondern "Return".
Was sagt der Simulator zu deinem Prog?
Der ist für so etwas auch sehr brauchbar.