Vier Bytes in ein Long (=DWord) packen?

[Qndre]

Wie kann man in Visual-Basic (nicht .NET!) vier Bytes in ein vorzeichenbehaftetes DWord (auch "Long" genannt) packen und umgekehrt? Das ganze gestaltet sich recht schwierig, da es keine 32-bit Unsigned ist sondern eine 32-bit Signed. Daher funktioniert nicht:

DWord = (ByteA*1) + (ByteB*256) + (ByteC*65536) + (ByteD*16777216)

EDIT: Habe entsprechenden Code im Netz gefunden, man muss nur lange genug suchen. Falls jemand anderes was ähnliches sucht: http://vb-tec.de/bytelong.htm