Byte in seine 8 Bits zerlegen

[Dirk]

Dim Variable As Byte

Variable = &B00001010

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

Gruß Dirk

[Ups, da war ich etwas zu langsam!]