Na ja, der Port ist 8 bit breit was dezimal von 0 bis 255 geht.
Diese Zahl wird ausgegeben.
Wenn du nicht alle Pins des Ports brauchst, dann musst du dir die gefragten erst über

Dim Pa_dez As Byte
Pa_dez=Pina And &B00110011
LCD Pa_dez

besorgen. Hier würde Pina.0, Pina.1, Pina.4 und Pina.5 dezimal ausgegeben.

Gruß

Rolf