Eine andere Variante:

Im Code ist ein Beispiel mit LSB First und eiens mit MSB first.

Code:
Dim b1 as Byte

dim b2(8) as Byte
Dim i as  Byte, j as Byte

b1 = &H55        ' Test Wert

' LSB zuerst in das Array

For i = 0 to 7
   j = i + 1
   b2(j) = b1.i
next



Print b2(1); " " ; b2(2) ; " " ; b2(3) ; " " ; b2(4); " " ; b2(5); " " ; b2(8); " " ; b2(7); " " ; b2(8)



' MSB zuerst in das Array

For i = 0 to 7
   j = 8 - i
   b2(j) = b1.i
next

Print b2(1); " " ; b2(2) ; " " ; b2(3) ; " " ; b2(4); " " ; b2(5); " " ; b2(8); " " ; b2(7); " " ; b2(8)
Bei dem Code ist zu beachten, dass die Bit-Zählung mit 0 beginnt und die Zeichenzählung im Array mit 1.