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