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