>>134

Public Function Byte2Long(ByRef Value() As Byte) As Long

Byte2Long = _
(Value(3) * 256& * 256& * 256&) + _
(Value(2) * 256& * 256&) + _
(Value(1) * 256&) + _
(Value(0) * 1&)

End Function

Public Function Byte2Cur(ByRef Value() As Byte) As Currency

Byte2Cur = _
(Value(7) * 256@ * 256@ * 256@ * 256@ * 256@ * 256@ * 256@) + _
(Value(6) * 256@ * 256@ * 256@ * 256@ * 256@ * 256@) + _
(Value(5) * 256@ * 256@ * 256@ * 256@ * 256@) + _
(Value(4) * 256@ * 256@ * 256@ * 256@) + _
(Value(3) * 256@ * 256@ * 256@) + _
(Value(2) * 256@ * 256@) + _
(Value(1) * 256@) + _
(Value(0) * 1@)

End Function

byte配列にした値を、上記みたいに復元したいってことです。