'IEEE754 浮点数 http://www.doc88.com/p-9902813307216.html,  0.98=3F 7A E1 47
'http://lostphp.com/hexconvert/
Private Function SingleToHex(ByVal fValue As Single) As String
    Dim AA(3) As Byte
    Dim HexString As String
    Dim tmp As String
    CopyMemory ByVal VarPtr(AA(0)), ByVal VarPtr(fValue), 4
    For i = 3 To 0 Step -1
        tmp = CStr(Hex(AA(i)))
        If (Len(tmp) = 1) Then
            tmp = "0" & tmp
        End If
        HexString = HexString & tmp & " "
    Next
    SingleToHex = Left(HexString, Len(HexString) - 1)
End Function

'IEEE754 浮点数
Private Function HexToSingle(ByVal HexString As String) As Single
        Dim AA() As Byte
        Dim BB(3) As Byte
        Dim fValue As Single
        
        AA = HexStringToBytes(HexString)
        'reverse array
        BB(0) = AA(3)
        BB(1) = AA(2)
        BB(2) = AA(1)
        BB(3) = AA(0)
        CopyMemory ByVal VarPtr(fValue), ByVal VarPtr(BB(0)), 4
        HexToSingle = fValue
End Function