Ich bin dafür, dass es so funktioniert:
Nö Bild  
If Portd.0 = 1 Then 'geht nicht

So geht's:

If Pind.0 = 0 then 'Eingang=Pin , gegen Masse schalten =0

Gruß
Christopher