Private Sub Callselector(ByVal SubId As Integer, param As Object)
 
        Select Case SubId
            Case 1 : Call vers1(param)
            Case 2 : Call vers2(param)
        End Select
    End Sub
 
    Private Sub vers1(Optional param As Object = Nothing)
 
    End Sub
 
    Private Sub vers2(Optional param As Object = Nothing)
 
    End Sub

    Dim WithEvents tbo As New TextBox With _
         {.Parent = Me, .Left = 300}
 
    Private Sub tbo_KeyDown(sender As Object, _
        e As System.Windows.Forms.KeyEventArgs) Handles tbo.KeyDown
 
        If e.KeyCode = Keys.Return Then
            Dim num As Integer
            If Integer.TryParse(tbo.Text, num) AndAlso num > 0 And num <= 2 Then
                Dim params(1) As Object
                Interaction.CallByName _
                   (Me, "Teil" & num.ToString, CallType.Method, params)
            End If
        End If
    End Sub
 
 
    Public Sub Teil1(ParamArray params() As Object)
        MsgBox("Teil1")
    End Sub
 
 
    Public Sub Teil2(ParamArray params() As Object)
        MsgBox("Teil2")
    End Sub