Hallo Murus,

so geht es:

Code:
Y = &B11001100
M = &B00000001

For I = 1 To 8 Step 1
B = Y And M                                                 'Inhalt von Y wird mit aktuellem Inhalt von M "UND"-verknüpft
If B > 0 Then                                               'Wenn Ergebnis in B größer als 0 ist, dann soll B = 1 sein
  B = 1                                                     'Wenn B=0 ist kann es so bleiben
End If
X(i) = B                                                    'Der jeweiligen Array-position wird der Inhalt von B (0 oder 1) zugewiesen
Shift M , Left , 1                                          'Das Abfragebit in M wird um eine Stelle nach links verschoben
Next
Viele Grüße
Michael