你没有传入指针.
如函数:
Declare Function YourFunc(LpArray as long)as long
则调用时:
Dim NewArray() as String
'Pointer to NewArray
Dim lpNewArray as long
'取指针:
lpNewArray =VarPtr(NewArray(0)) '要看你定义的最小一标,如是则改为1
'调用函数:
Call YourFunc(ByVal lpNewArray) '想一想, 为什么要用: ByVal