CallByName with param array

[Fox]

How can I simplify this?

Sub Run(Func As String, Par() As Variant)
    Select Case UBound(Par)
        Case 0: CallByName Me, Func, VbMethod, Par(0)
        Case 1: CallByName Me, Func, VbMethod, Par(0), Par(1)
        Case 2: CallByName Me, Func, VbMethod, Par(0), Par(1), Par(2)
        Case 3: CallByName Me, Func, VbMethod, Par(0), Par(1), Par(2), Par(3)
        '...
    End Select
End Sub