Dim B As Byte

B.0 = Pind.3
B.1 = Pind.4
B.2 = Pind.5


Print Hex(b)