переменная VBA Количество аргументов

Sub Test(ByVal pArg As String, ParamArray pParameters())
	' Can't be combined with 'Optional' arguments
    Dim sValues
    For Each sValues In pParameters
  Debug.print sValues
    Next  
End SUb
VasteMonde