Why did n't you use ParamArray?, Look for it (help online)
With this option a function can have a variable number of parameters
example :
This function returns a result with variant type
'------------
Function Test(ParamArray t())
On Error Resume Next
i = 0
While Not (t(i) = Empty)
MsgBox t(i)
i = i + 1
Wend
End Function
'------------
Private Sub Command1_Click()
Result = Test("a", "b")
End Sub