Public Class frmInput
 
    'Das Array
    Dim Personen() As String
 
    'Deklaration, Positionierung und Einrichtung der Controls
 
    Dim lblwidth As Integer = 100
 
    Dim lblName As New Label With _
        {.Parent = Me, .Width = lblwidth, .Text = "Name"}
    Dim WithEvents tboName As New TextBox With _
        {.Parent = Me, .Left = lblwidth, .Width = lblwidth}
 
    Dim lblOrt As New Label With _
        {.Parent = Me, .Width = lblwidth, .Top = 50, .Text = "Ort"}
    Dim WithEvents tboOrt As New TextBox With _
        {.Parent = Me, .Left = lblwidth, .Width = lblwidth, .Top = 50}
 
    Dim WithEvents btnBestätigen As New Button With _
        {.Parent = Me, .Top = 100, .Width = lblwidth, .Text = "Hinzufügen"}
 
    Dim tboPersonen As New TextBox With 
              {.Parent = Me, .Top = 150, .Width = lblwidth * 2, _
               .Multiline = True, .Height = 200, .ScrollBars = ScrollBars.Both, _
               .ReadOnly = True, .BackColor = Color.LightGray}
 
 
 
    Private Sub btnBestätigen_Click(sender As Object, _
         e As System.EventArgs) Handles btnBestätigen.Click
 
        'Check der Eingaben - wie auch immer
        If (Not String.IsNullOrWhiteSpace(tboName.Text) AndAlso _
             tboName.Text.Length > 3) And _
           (Not String.IsNullOrWhiteSpace(tboOrt.Text) AndAlso _
             tboOrt.Text.Length > 3) Then
 
            Dim newlength As Integer
            If Personen Is Nothing Then
                newlength = 1
            Else
                newlength = Personen.Length + 1
            End If
 
            'PersonenArray anlegen oder um ein Element verlängern 
            Array.Resize(Personen, newlength)
 
            'Arrayindices sind null-basiert !
            'Join kettet die beiden Inputs zusammen
            Personen(Personen.Length - 1) = _
                 String.Join(" wohnhaft in ", tboName.Text, tboOrt.Text)
 
            'Neue Eingabe als neue Zeile an die Textbox anhängen
            tboPersonen.AppendText(Personen(Personen.Length - 1) & vbNewLine)
 
            'Eingabe-Controls leeren
            tboOrt.Text = String.Empty
            tboName.Text = String.Empty
        End If
    End Sub
End Class