Gut, heut' lassen wir's krachen: Einer geht noch
Code:
Dim X(8) As Byte
Dim Z As String * 8 At X Overlay

Y = &B11001100
Z = Bin(y)

For I = 1 To 8 Step 1
      X(i) = X(i) And 1
Next