如何通过COM将未初始化的数组从VB6传递给.NET？

我正在使用包含此函数的VB6类来复制问题：

Public Function MyMethod(arr() As String,arr2() As String,Result$) As Integer     
    Result = Join(arr,",")
    MyMethod = 0        
End Function

我可以通过这样的测试程序(VB6)成功调用它,它显示“Hello,World”：

Dim obj As Object
    Dim arr() As String
    Dim arr2() As String
    Dim result As String

    Set obj = CreateObject("MyHelloWorld.MyClass")
    'Set obj = CreateObject("HelloWorldCOMNet.MyNetClass")

    arr = Split("Hello World"," ")
    'ReDim arr2(0)
    result = ""

    If Not obj.MyMethod(arr,arr2,result) Then
        MsgBox result
    End If

我无法修改实际的VB6应用程序,但我想用.NET编写的类替换VB6 ActiveX组件.新类看起来像这样：

<ComClass("cd74ab4a-76ca-4c84-9f49-147e6f6ac01f","b3314f71-cb8d-48ea-bfe6-9d1995aa4f58","40c30052-0cc8-4ef6-b1e8-92e4ddbcb515")> _
Public Class MyNetClass

    Public Sub New()
        MyBase.New()
    End Sub

    Public Function MyMethod(ByRef arr() As String,ByRef arr2() As String,ByRef result As String) As Short
        result = String.Join(",arr) + " from .NET"
        Return 0
    End Function

End Class

我通过在测试应用程序中用Set obj = CreateObject(“HelloWorldCOMNet.MyNetClass”)替换Set obj = CreateObject(“MyHelloWorld.MyClass”)来测试它.

我在.NET类的构造函数中使用断点来验证它是否已被执行.

当测试应用程序调用MyMethod时,会发生FatalExecutionEngineException.

我将误差缩小到第二个参数arr2.当我使用ReDim arr2(0)初始化变量时,.NET代码可以正常工作.所以我的猜测是,这与该变量未初始化的事实有关.不幸的是我无法修改实际的VB6应用程序.

我使用OleWoo比较了方法签名,它们看起来是相同的(除了id).

如何修改.NET函数的签名以接受未初始化的字符串数组？

编辑：OleWoo的输出：

[id(0x00000001)]
short MyMethod(
   [in,out] SAFEARRAY(BSTR)* arr,[in,out] SAFEARRAY(BSTR)* arr2,out] BSTR* result
);