CallByName with param array

How can I simplify this?

VB Code:

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

Why do you want to do that. It looks like you are trying to code a routine that you would call to run several subs in your program. What is the advantage of that?

I'm heading for the theory, there's yet no usage for this piece of code. The idea is to access any function of a written project without having to write a interface for each. I know about the performance penalties of CallByName.

OK, I guess I don't get it. A typical Sub in a program might look like

VB Code:

Public Sub MySub(strOne As String, intTwo As Integer)

and to call it in the normal fashion you would do

VB Code:

MySub "test", 3

I guess with your Run sub you would have to do something like this

VB Code:

Dim AnArray(1) As Variant
AnArray(0) = "test"
AnArray(1) = 2
Run "MySub", AnArray

and you would have to figure out how to handle the Type Mismatches. I don't mean to be derisive, but it seems silly to go through the trouble.

Yeah that's right but it's probably better than writing a huge wrapper function to get each and any function in the project.

Well as said I'm more likely looking for the theory here, I got loads of trouble understanding the ParamArray type. It's basically the same problem as when passing arrays to a ParamArray:

VB Code:

'Same code, different header
Public Sub TextOut1(ParamArray List())
    Dim A As Long, Temp As String
    For A = 0 To UBound(List): Temp = Temp & List(A): Next
    MsgBox Temp
End Sub
 
'Same code, different header
Public Sub TextOut2(List() As Variant)
    Dim A As Long, Temp As String
    For A = 0 To UBound(List): Temp = Temp & List(A): Next
    MsgBox Temp
End Sub
 
Private Sub Form_Load()
    Dim Temp() As Variant
    
    ReDim Temp(1)
    Temp(0) = "O"
    Temp(1) = "K"
    
    'Can't swap functions here
    TextOut1 Temp(0), Temp(1)
    TextOut2 Temp
End Sub

I know it's silly but you can always try to find a way huh?