如何在Excel VBA中将动态分配的数组传递给函数

Function MyFunction(arr() As Variant) As Variant
    ' 在这里编写函数的逻辑
End Function

Sub Main()
    Dim myArray() As Variant
    ' 动态分配数组并赋值
    ReDim myArray(1 To 5)
    myArray(1) = 10
    myArray(2) = 20
    myArray(3) = 30
    myArray(4) = 40
    myArray(5) = 50
    
    ' 调用函数并传递数组
    Dim result As Variant
    result = MyFunction(myArray)
    
    ' 在这里处理函数返回的结果
End Sub