Also so funktioniert das alles mal garnicht.

Den Pullupwiederstand hab ich erstmal wieder rausgenommen, denn das brachte garnichts.

Ich hab einfach mal den Taster mit dem Minimalcode:

Do

If PINA.2 = 0 Then
PORTA.0 = 1
End if

Loop

angesteuert. Das klappt so alles super. Taster wird gedrückt, lampe leuchtet.