VBScript中的数组做参数调用动态库中的方法，提示类型不匹配？解决办法

VBScript中的数组做参数调用动态库中的方法，提示类型不匹配？
<script   language   =   "vbscript ">
sub   zip()
dim   a(1)
a(0)   =   "sdfsd "
a(1)   =   "dasf "
msgbox   ehImgOCX1.zipFile   (a,   "sdaf.zip ",   "123 ")
end   sub
</script>

Public   Function   zipFile(strSourceFile()   As   String,   strDestinationFile   As  

String,   strPassWord   As   String)   As   Boolean

strSourceFile()   As   String   改成   ByRef   strSourceFile()   As   Variant   也不行

------解决方案--------------------
strSourceFile As Variant

*****************************************************************************
欢迎使用****论坛专用阅读器 : **** Reader(附全部源代码)

最新版本：20070130

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html