如何在VBA中将浮点转换为十六进制表示？

Question

我需要帮助将工程十进制值（浮点）转换为VBA中的十六进制表示...下面的代码仅取整数部分而不是小数。我希望浮点数以十六进制表示。

Sub float2hex()

'Declaring variables
 hexsimvalue As String, txdata As Double


    txdata = 100.25                                            
    hexsimvalue = Hex(txdata)                                 

End Sub

提前谢谢。