C/Visual C - Codigo C++ a Visual Basic, URGE!!

Function DoublesToBSTR(doubles() As Double) As BSTR

    Dim byteArray() As Byte

    Dim bstr As BSTR

    Dim i As Long

    ' Convertir el arreglo de Doubles a un arreglo de Bytes '

    ReDim byteArray(0 To (UBound(doubles) + 1) * 8 - 1) ' Cada Double ocupa 8 bytes '

    For i = LBound(doubles) To UBound(doubles)

        CopyMemory byteArray(i * 8), doubles(i), 8

    Next i

    ' Crear el BSTR a partir del arreglo de Bytes '

    bstr = SysAllocStringByteLen(byteArray(0), UBound(byteArray) + 1)

    DoublesToBSTR = bstr

End Function

Function BSTRToDoubles(bstr As BSTR) As Double()

    Dim byteArray() As Byte

    Dim doubles() As Double

    Dim i As Long

    ' Obtener el arreglo de Bytes del BSTR '

    Dim length As Long

    length = LenB(bstr)

    ReDim byteArray(0 To length - 1)

    CopyMemory byteArray(0), ByVal bstr, length

    ' Convertir el arreglo de Bytes a un arreglo de Doubles '

    ReDim doubles(0 To (length / 8) - 1)

    For i = 0 To (length / 8) - 1

        CopyMemory doubles(i), byteArray(i * 8), 8

    Next i

    BSTRToDoubles = doubles

End Function