如何从VBA应用程序调用C DLL并返回数组？

Option Explicit

Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Declare Function MyDLLFunction Lib "MyDLL.dll" (ByRef inputArray() As Double, ByVal size As Long) As Long

Sub CallDLL()
    Dim hModule As Long
    Dim pFunc As Long
    Dim inputArray(1 To 5) As Double
    Dim result As Long
    Dim i As Long
    
    ' 加载DLL
    hModule = LoadLibrary("MyDLL.dll")
    
    If hModule <> 0 Then
        ' 获取函数地址
        pFunc = GetProcAddress(hModule, "MyDLLFunction")
        
        If pFunc <> 0 Then
            ' 调用DLL函数
            result = MyDLLFunction(inputArray(1), UBound(inputArray))
            
            ' 输出结果
            For i = 1 To UBound(inputArray)
                Debug.Print inputArray(i)
            Next i
        Else
            MsgBox "无法获取DLL函数地址。"
        End If
        
        ' 卸载DLL
        FreeLibrary hModule
    Else
        MsgBox "无法加载DLL。"
    End If
End Sub