Looking for Long to Hex Conversion

I am using an old version of an accounting program that stores it numbers as a 7 byte string.

I convert the string to a currency value using the following code:
=========================================================================
Dim InputAmt as String, Value as Currency
InputAmt = String(7,Chr(0))
Get #1,,InputAmt
Value = CMSDollar(InPutAmt)

Function CMSDollar(InPutAmt as String) As Currency
    DigitsToLeftofDecimal = Val(Right(Hex(Asc(InPutAmt$)), 1))
    Select Case Left(Hex(Asc(InPutAmt$)), 1)
        Case "4": Neg = 1
        Case "3": Neg = 0.1
        Case "C": Neg = -1
        Case "B": Neg = -0.1
    End Select
    For i = 2 To 7
        If Val(Hex(Asc(Mid(InPutAmt$, i, 1)))) <= 9 Then
            TempAmt$ = TempAmt$ + "0" + Hex(Asc(Mid(InPutAmt$, i, 1)))
        Else
            TempAmt$ = TempAmt$ + Hex(Asc(Mid(InPutAmt$, i, 1)))
        End If
    Next i
    CMSDollar@ = Neg * (CCur(Val(Left(TempAmt$, DigitsToLeftofDecimal) + _
                       "." + Mid(TempAmt$, _
                       DigitsToLeftofDecimal + _
                       1, Len(TempAmt$)))))
End Function
=======================================================================
I know this is probably not the best coding but you should get the idea. I would like two new functions

one to clean up the function shown above and the other to convert a number into the proper format to place back into the data file so the accounting program will be able to recognize it.
Start Free Trial