Byte in seine 8 Bits zerlegen

Hallo,

ich suche eine Möglichkeit, wie ich ein Byte in seine 8 Bits zerlegen kann.

Byte = &B00001010

Bit0 = 0
Bit1 = 1
Bit2 = 0
Bit3 = 1
Bit4 = 0

usw.

...wobei mir die 4 höchsten Bits egal sind, weil diese immer 0000 sind und bleiben werden.

Vielen Dank schonmal für eure Hilfe!

Gruss Hacker

Bit0=Byte.0

Gento

Dim Variable As Byte

Variable = &B00001010

Print "Bit0 " ; Variable.0
Print "Bit1 " ; Variable.1
.
.
.

Gruß Dirk

[Ups, da war ich etwas zu langsam!]

Dankeschön für eure Hilfe!

Gruss Hacker