kannst ja auch mal sowas probieren:

Dim myb1 As Byte
Dim myb2 As Byte
Dim myb3 As Byte
Dim myb4 As Byte
Dim mylong As Long At myb1 Overlay

nun kannst du einzelnen byte separat beschreiben und das
gesamtergebnis dann über mylong auslesen

gruss klaus