Calling routine with name stored in string variable

[Helge]

I need some VBA like this:

Dim AllSubs(1 To 3) As String
 
Sub myMAIN()
AllSubs(1) = "Sub1"
AllSubs(2) = "Sub2"
AllSubs(3) = "Sub3"
Call Call_VBA(2) ' This should call a Sub2.
End Sub
 
Sub Call_VBA(ByRef I As Integer)
Dim mySub As String
mySub = AllSubs(I)
Call mySub ' Of course this will not function!
End Sub
 
Sub Sub1(): MsgBox "Sub1": End Sub
Sub Sub2(): MsgBox "Sub2": End Sub
Sub Sub3(): MsgBox "Sub3": End Sub

Is it at all possible to make a such 'dynamic' call of a VBA routine.

[snb]

Sub snb()
  j=1
  application.run "macro_" & j
End sub

or

Sub snb_002()
  sn=array("macro1","macro2","macro_3")
  application.run sn(2)
End Sub