Sto risolvendo così, possibile che non ci sia una soluzione migliore?
codice:
Select Case UBound(par)
Case -1: Application.Run funzione
Case 0:  Application.Run funzione, par(0)
Case 1:  Application.Run funzione, par(0), par(1)
Case 2:  Application.Run funzione, par(0), par(1), par(2)
End Select