在excel中将数字字符串转换为原始数据类似于Oracle中的cast_to_raw函数

Function ConvertToRaw(ByVal numStr As String) As String
    Dim num As Double
    Dim bytes() As Byte
    Dim i As Integer
    
    ' 将字符串转换为数字
    num = CDbl(numStr)
    
    ' 分配足够的空间来存储数字的二进制表示
    ReDim bytes(0 To 7) ' 对于Double类型，需要8个字节
    
    ' 将数字复制到字节数组中
    CopyMemory bytes(0), ByVal VarPtr(num), 8
    
    ' 将字节数组转换为十六进制字符串
    For i = LBound(bytes) To UBound(bytes)
        ConvertToRaw = ConvertToRaw & Right$("0" & Hex(bytes(i)), 2)
    Next i
End Function

' 辅助函数，用于内存复制
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)