バイトから数値の変換で、±を気にしなかったら、2BYTEからINTEGER変換は、
Dim result(2) As Byte
result(0) = (val And 255& * 256) \ 256&
result(1) = (val And 255&)
でできると思いますが、8BYTEからCURRENCY変換はどうやったらいいか、
教えてください。
ANDがオーバーフローしてANDが使えないです。

リトルエンディアントでメモリに入ってるから、
RtlMoveMemoryとかで1byteずつとってくるのがいいでしょうか。