Soluciando
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
Saludos.