Dim erg as Variant
 
erg = CLongToULong(CLng("&H" & "D469084E"))
 
 
 
Private Function CLongToULong(LongValue As Long) As Variant
  Select Case LongValue
    Case Is < 0
      CLongToULong = CDec(LongValue - CDec(&H80000000) * 2)
    Case &H80000000
      CLongToULong = CDec(LongValue) * -1
    Case Else
      CLongToULong = CDec(LongValue)
  End Select
End Function