function函数怎么返回字符串数组

function函数如何返回字符串数组
定义了一个function
Function   test()As   String
dim   str(3)   as   String
……
End   Function
如何使调用这个函数的其他函数得到str()这个数组，就是如何return   str。

[解决办法]
Function test()As String()
dim str(3) as String
……
test=str
End Function

[解决办法]
Function test()As String()
dim str(3) as String
……
test=str
End Function
这样写，但在调用该test()的函数里调用test(0)值执行时报错。
------------------------------------
dim arr() as string
dim i as integer
arr=test()
for i=0 to ubound(arr)
debug.pring arr(i)
next