So auf die Schnell hab ich das auch nicht exact im Kopf aber ich meine die Definition sollte andersrum sein.

Versuch mal

Dim Buf(4) as Byte
Dim D As Long At Buf Overlay