Byte型からLSetが単純で一番速いと思う

定義(追加部分のみ)

Type tyByte
　　Byte0 As Byte
　　Byte1 As Byte
　　Byte2 As Byte
　　Byte3 As Byte
End Type

代入処理はこんな感じ
データの格納順序は知らんから適当

myByte.Byte0 = long0 And &HFF&
myByte.Byte1 = (long0 And &HFF00&) \ &H100&
myByte.Byte2 = long1 And &HFF&
myByte.Byte3 = (long1 And &HFF00&) \ &H100&
LSet mySingle = myByte