如何在函数中传递数量不定的参数？

　　如果要传递不定个数的参数给过程，该过程应如下定义：
SubMySub(ParamArrayP())'参数定义为一个数组
以下的可能的调用：
MySub"ABC"
MySub1,3,9,988,776,234
MySub123,"abc",Date()
可用以下的方法来读每个参数：
Fori=0ToUBound(P)
'P(i)为第i个参数
Next