VB问题一问!!!

在VB中对数组的调用是怎么样的?
用如下程序调用会出问题:
Private Function MyFun(a() as single)
ReDim a(5)
' Do my procedure
End Function
Private Sub Form1_Load()
Dim a(5) as single, b as single
b = MyFun(a)
End Sub
用如下的方法是可以的:
Priavte Sub Form1_load()
Dim a(5) as single, b as single
b = MyFun(a(0))
End Sub
而调用别的DLL时又是不太一样. 那位高手高手高高手可不可以把VB中
对于数组的调用方法详细讲一下.
谢谢谢.