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

如果要传递不定个数的参数给过程，该过程应如下定义：

Sub MySub( ParamArray P() ) ''参数定义为一个数组

以下的可能的调用：

MySub "ABC"
MySub 1, 3, 9, 988, 776, 234
MySub 123, "abc", Date()

可用以下的方法来读每个参数：

For i = 0 To UBound(P)
  '' P(i) 为第 i 个参数
Next