6 Bits aus Long rausschneiden

[MagicWSmoke]

das habe ich befürchtet aber nicht wahrhaben wollen.

Hm, wieso das ? Das sind nur ein paar Zeilen, da sind keine Umwege nötig.
Edit:
Schnell und komplizierter:

Dim my_Long As Long
Dim my_Word As Word At my_Long Overlay
Dim my_Byte As Byte At my_Word + 1 Overlay

my_Long = &b11111111111111100011101100111111
Shift my_Word , Left , 1
my_Byte = my_Byte And &b00111111

Oder einfach, aber langsamer:

Dim my_Long As Long
Dim my_Byte As Byte

my_Long = &b11111111111111100011101100111111
Shift my_Long , Right , 7
my_Byte = my_Long And &b00111111