Mal was ganz einfaches

Dim X as Byte
x = PinB

Damit sollte er die Pins von PortB in ne Variable X einlesen

MfG RoFo88