Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        arraytest()
    End Sub
    Sub arraytest()
        'Dim a As String = TextBox1.Text
        Dim i As Integer
        Dim mitglieder(5) As String
        For i = 0 To mitglieder.Length - 1
            mitglieder(0) = "Anna"
            mitglieder(1) = ""
            mitglieder(2) = ""
            mitglieder(3) = ""
            mitglieder(4) = ""
            mitglieder(5) = ""
            ListBox1.Items.Add(mitglieder(i))
                        If TextBox1.Text <> "" Then
                If mitglieder(i) = "" Then
                    ReDim Preserve mitglieder(i)
                    mitglieder(i) = TextBox1.Text
                End If
            End If
        Next i
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        arraytest()
    End Sub
End Class

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht