Option Explicit
 
Private arJumpPortal(1 To 5) As String
 
Private Sub Form_Load()
 
  Dim i As Integer
  For i = 1 To 5
    arJumpPortal(i) = "sub" & CStr(i)
  Next i
 
  For i = 1 To 5
    CallByName Form1, arJumpPortal(i), VbMethod 'ersetzt select case
  Next i
 
End Sub
 
Public Sub sub1()
  Debug.Print "sub1"
End Sub
 
Public Sub sub2()
  Debug.Print "sub2"
End Sub
 
Public Sub sub3()
  Debug.Print "sub3"
End Sub
 
Public Sub sub4()
  Debug.Print "sub4"
End Sub
 
Public Sub sub5()
  Debug.Print "sub5"
End Sub

Gruß
Dirk

--
?Get it right the first time