Kann gut sein, dass es auch einfacher geht
...korrekt:

Code:
Dim Zahl as byte
Zahl = PinA                            'oder PinB, C oder D, je nach verwendetem Port
Zahl = Zahl AND &B00001110         'Löscht die Bits 7,6,5,4 und 0 des Bytes durch UND-Verknüpfung mit 0
Shift Zahl, Right, 1
...fertich


Und wenn Du nicht die Pins 1, 2 und 3 verwendest sondern 0, 1 und 2, kannst Du Dir den Shift-Befehl sogar auch noch sparen!