Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim NameArray() As String
        Dim i As Single
 
       'String Array füllen
        For i = 0 To 10
            ReDim Preserve NameArray(i)
            NameArray(i) = "Name" & i
        Next
 
       'Und wieder auslesen
        For i = 0 To UBound(NameArray)
            MsgBox(NameArray(i).ToString)
        Next
 
 
End Sub