vieleicht hilft dir ja die kleine idee
Dim A As Byte
...
Porta.0 = A.0
Portd.6 = A.1
Portd.2 = A.2
Portb.1 = A.3
Portd.3 = A.4
Portb.0 = A.5
Portd.4 = A.6
Portb.2 = A.7