dimensionierte Bits in einem Byte speichern

[Sauerbruch]

...vielleicht so?

Dim A as bit
Dim B as bit
Dim C as bit
...

Dim ByteA as byte
Dim ByteE as Eram Byte

ByteA.0 = A
ByteA.1 = B
ByteA.2 = C
...

ByteE = ByteA

Oder seh´ ich den Wald vor lauter Bäumen nicht? ...