将数组传递给QTP中的函数

Question

我正在尝试使用VB脚本在函数中传递一个数组。

'Function Definition
Function doWhat(arr)
   msgbox arr(1)
End Function

'Array
a = Array(1,2,3)

'Calling function
doWhat(a)

给我错误。我在我的QTP脚本中使用。请帮我解决这个问题。

由于