Hat leider nicht funktioniert.
Weil 12V viel mehr sind als 5V!
Es dürfen nur 5V in den AVR geh'n. (Genauer gesagt, VCC+ein paar hundert Milivolt mehr. Genau steht es im Datenblatt)
Um schädigungen durch die 12V zu vermeiden muss eine geeignete Massnahme getroffen werden. Da gäbe es: Spannungsteiler, Z-Diode, Optokoppler, Transistor, ...

Dann muss die Abfrage lauten:
If Pinb.0 = 1 Then ...
If Pinb.0 = 0 Then ...

Wobei, wenn Pinb.0 nicht 1 ist, ist es logischerweise 0.

If Pinb.0 = 0 Then Gosub AUS Else Gosub AN

Du kannst mit Alias den Pins auch Namen geben.

Gerätezustand Alias Pinb.0
Motor Alias Portd.1 'um Ausgängen einen Namen zu geben

Der Code könnte dann weiter lauten:

If Gerätezustand = 0 Then Gosub AUS Else Gosub AN