Ich schliesse mich Michael an, es muss zuerst mal der Pullup eingeschaltet werden mit Portd.5=1 dann grundsätzlich bei Eingängen an einzelnen Ports mit "Pind.5" abfragen:

Config Portd = Output
Config Pind.5 = Input

if pind.5=0 then
LCD "Ein"
end if

Also Eingang immer mit "PINx.y"

Gruss Clemens