Option Explicit
 
Private Sub Form_Load()
'Debug.Print LongToCurrency(-1)
'Debug.Print CurrencyToLong(4294967295#)
Debug.Print BigHex(4294967295#)
 
End Sub
 
 
Private Function BigHex(ByVal value As Currency) As String
    BigHex = Hex(CurrencyToLong(value))
End Function
 
Private Function LongToCurrency(ByVal lVal As Long) As Currency
    If lVal < 0 Then
        LongToCurrency = 4294967296# + lVal
    Else
        LongToCurrency = lVal
    End If
End Function
 
Private Function CurrencyToLong(ByVal lVal As Currency) As Long
    If lVal > 2147483647# Then
        CurrencyToLong = lVal - 4294967296#
    Else
        CurrencyToLong = lVal
    End If
End Function
 

Public Function Hex2Currency(HexCurrency As String) As Currency
    Dim s As String
    Dim i As Integer
    ' capture error
    On Error GoTo ErrorHandler
    SaveErrNum = 0
    ' intitialise
    s = "&H"
    ' create hex string from each char
    For i = 1 To Len(HexCurrency)
         ' high order nibble
        s = s & Hex((Asc(Mid(HexCurrency, i, 1)) And &HF0) / 16)
        ' low order nibble
        s = s & Hex(Asc(Mid(HexCurrency, i, 1)) And &HF)
    Next i
    ' hex to currency
    Hex2Currency = CCur(s)
    Exit Function
ErrorHandler:
    Hex2Currency = 0
    SaveErrNum = 1
End Function