ParamArray (2)

Private Sub ParameterSub(ParamArray parameters() As Variant)
Dim txt As String
Dim i As Integer
txt = Format$(UBound(parameters) - LBound(parameters) + 1) & _
"parameters:" & vbCrLf
For i = LBound(parameters) To UBound(parameters)
txt = txt & Format$(i) & vbTab & _
TypeName(parameters(i)) & vbTab & _
parameters(i) & vbCrLf
Next i
Text1.Text = txt
End Sub