Public Class frmTest
 
    Dim tbo(2) As TextBox
    Dim txt(2) As String  'Array für die Übernahme der Text-Eigenschaft
 
 
    Private Sub frmTest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        For i As Integer = 0 To 2
            tbo(i) = New TextBox With
               {.Parent = Me, .Top = 10 + i * 30, .Left = 10, 
                .Name = "tbo_" + i.ToString}
 
            tbo(i).Text = "Person " & (i + 1).ToString
            tbo(i).Tag = True 'Vorbelegung der Text-Eigenschaft notieren
 
            tbo(i).Backcolor = color.lightgray
 
            AddHandler tbo(i).KeyDown, AddressOf tbo_keydown
        Next i
    End Sub
 
 
    Private Sub tbo_keydown(sender As Object, e As KeyEventArgs)
 
        'Referenz auf die geänderte Box
        Dim tbo As TextBox = DirectCast(sender, TextBox)
 
        'Textbox-Index aus dem Namen des Senders ermitteln
        Dim index As Integer = tbo.Name.Split("_"c)(1)
 
        If e.KeyCode = Keys.Return Then
            'Notieren: Eingabe ist durch Return abgeschlossen
            tbo.Tag = True
            tbo.backcolor = color.lightgray
        Else
            'Ist die Eingabe bereits abgeschlossen
            If DirectCast(tbo.Tag, Boolean) Then
                'Übernahme des aktuellen Wertes in Variable
                txt(index) = tbo.Text
                Me.Text = txt(index) 'Demo: Anzeige der Übernahme
                tbo.Tag = False 'Eingabe als nicht abgeschlossen notieren
                tbo.backcolor = color.white
                tbo.Text = "" 'übernommenen Wert löschen
            End If
        End If
 
    End Sub
End Class