在vba中通过函数传递数组

Function MyFunction(arr() As Integer) As Variant

Function MyFunction(arr() As Integer) As Integer()

MyFunction = arr

Function DoubleArray(arr() As Integer) As Integer()
    Dim result() As Integer
    ReDim result(1 To UBound(arr)) As Integer
    
    Dim i As Integer
    For i = 1 To UBound(arr)
        result(i) = arr(i) * 2
    Next i
    
    DoubleArray = result
End Function

Dim inputArr() As Integer
ReDim inputArr(1 To 3) As Integer

inputArr(1) = 1
inputArr(2) = 2
inputArr(3) = 3

Dim outputArr() As Integer
outputArr = DoubleArray(inputArr)