哪位高手用过ScriptControl控件，把VBScript中的一个数组传到一个VB函数中去，或一个VB函数传一个数组到VBScript中

[qyh]

VB程序：
Public Function str2array(ByVal src As String, ByVal c As String,dst() as String)
If src = "" Then
ReDim dst(0)
Else
dst = Split(src, c)
End If
str2array = dst
End Function

VBScript调VB程序：
dim test()
dim test1()
str2array "1,2,3,4,5",",",test
msgbox test(0)
test1=str2array("1,2,3,4,5",",",test)
msgbox test1(0)

如何让VBScript运行正常，我不是想要实现上面VBScript程序里写到的功能，这个我知道，我只是想这个程序运行正常。

[qyh]

help me!!

[qyh]

没人理我的啊？？？？？