Hallo,

Ich habe das auch mal ausprobiert, funktioniert alles.

Nur wie kann ich es machen, das wenn ich Taste1 festhalte und dann Taste3 drücke soll er zu Sub Fall4 springen. und nicht vorher irgendwo anders hinspringen.

Code:
...
Do
 For I = 1 To Keys
  Key = I
  Select Case Key
  Case 1 : Debounce Pind.0 , 1 , Fall1 , Sub
  Case 2 : Debounce Pind.1 , 0 , Fall2 , Sub
  Case 3 : Debounce Pind.2 , 0 , Fall3 , Sub
  End Select
 Next
Loop
...