VBA自定义函数的返回值能是数组吗？

public function test（byval m as integer) as integer() '这儿加()
dim arr1(2) as integer '定义数组
arr1(1)=10*m
arr1(2)=200
test=arr1 '返回数组
end function
sub test2()
dim arr(2) as integer '定义数组，接收test传回的值
arr=test(10) '调用test,返回arr(1)=100,arr(2)=200
' ……
end sub

我用过程返回过数组内容，函数没试过。如果用过程，大致格式如下：
Function fan_GetList(fan_x1 As String, fan_x2 As String, fan_x3() As String) As Integer
上述虽然是个函数，但第三个参数是数组，传递参数时，前两个是参数，第三个数组并没有内容，是个空的数组，由这个过程或者函数生成具体内容并返回调用程序，函数本身也可以返回一个integer的结果，我这里是返回数组的数量。我是举个例子，实际上返回数组的数量是多余，因为UBound也可以得到数组数量的。

Sub AAATest()
Dim Arr() As Long
Dim N As Long
Arr = LoadNumbers(Low:=101, High:=110)
If IsArrayAllocated(Arr:=Arr) = True Then
For N = LBound(Arr) To UBound(Arr)
Debug.Print Arr(N)
Next N
Else
''''''''''''''''''''''''''''''''''''
' Code in case Arr is not allocated.
''''''''''''''''''''''''''''''''''''
End If
End Sub
Function LoadNumbers(Low As Long, High As Long) As Long()
'''''''''''''''''''''''''''''''''''''''
' Returns an array of Longs, containing
' the numbers from Low to High. The
' number of elements in the returned
' array will vary depending on the
' values of Low and High.
''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''
' Declare ResultArray as a dynamic array
' to be resized based on the values of
' Low and High.
'''''''''''''''''''''''''''''''''''''''''
Dim ResultArray() As Long
Dim Ndx As Long
Dim Val As Long
'''''''''''''''''''''''''''''''''''''''''
' Ensure Low <= High
'''''''''''''''''''''''''''''''''''''''''
If Low > High Then
Exit Function
End If
'''''''''''''''''''''''''''''''''''''''''
' Resize the array
'''''''''''''''''''''''''''''''''''''''''
ReDim ResultArray(1 To (High - Low + 1))
''''''''''''''''''''''''''''''''''''''''
' Fill the array with values.
''''''''''''''''''''''''''''''''''''''''
Val = Low
For Ndx = LBound(ResultArray) To UBound(ResultArray)
ResultArray(Ndx) = Val
Val = Val + 1
Next Ndx
''''''''''''''''''''''''''''''''''''''''
' Return the array.
''''''''''''''''''''''''''''''''''''''''
LoadNumbers = ResultArray()
End Function

都是答非所问，数组是通过程形成的，数组下标示知的，怎么在工作表上返回整个数组？