VB调用C# DLL 传递数组参数问题

C# 端

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Security.Cryptography;
using System.Runtime.InteropServices;
using System.Windows.Forms;
using System.Collections;


namespace DonetToVBDll
{
    //[ComVisible(true)]
    //[Guid("F1DAF282-2FBC-4343-8CA7-EF8E277E0EEA")]
    [ProgId("DonetToVBDll.clsComServer")]
    [ClassInterface(ClassInterfaceType.None)]
    public class clsComServer : IComServer
    {
        public int Add(int x, int y)
        {
            return x + y;
        }


        public int Subtract(int x, int y)
        {
            return x - y;
        }


        public string SayHello(string strName)
        {
            return strName + "你好，我是DoNetDLL,欢迎调用";
        }


        public string[] TransArray(string[] arr)
        {
            for (int i = 0; i < arr.Length; i++)
            {
                arr[i] = arr[i] + "Trans";
            }


            return arr;
        }
    }
}

Vb端

Option Explicit


Private Sub cmdAdd_Click()
    Dim objDoNet        As clsComServer
    Dim lngResult       As Long
    
    Set objDoNet = New DonetToVBDll.clsComServer
    lngResult = objDoNet.Add(CLng(txtX.Text), CLng(txtY.Text))
    MsgBox lngResult
End Sub


Private Sub cmdSayHello_Click()
    Dim objDoNet        As Object
    Dim strResult       As String
    
    Set objDoNet = CreateObject("DonetToVBDll.clsComServer")
    strResult = objDoNet.SayHello(txtName.Text)
    MsgBox strResult
End Sub


Private Sub cmdSubtract_Click()
    Dim objDoNet        As Object
    Dim lngResult       As Long
    
    Set objDoNet = CreateObject("DonetToVBDll.clsComServer")
    lngResult = objDoNet.Subtract(CLng(txtX.Text), CLng(txtY.Text))
    MsgBox lngResult
    
End Sub


Private Sub cmdTransArr_Click()
    Dim arr()               As String
    Dim objDoNet             As Object
    Dim arrGet()               As String
    
    ReDim arr(3)
    arr(0) = "Limin"
    arr(1) = "Ronaldo"
    arr(2) = "Lixuefen"
    arr(3) = "Rivaldo"
    
    Set objDoNet = CreateObject("DonetToVBDll.clsComServer")
    arrGet = objDoNet.TransArray(arr)
    MsgBox UBound(arrGet)
End Sub