Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'textboxen erzeugen
        For i As Integer = 0 To 10
            Dim tb As New TextBox
            tb.Text = "Textbox Nr." & i.ToString
            Me.Controls.Add(tb)
        Next
        'inhalt der textboxen speichern
        Using sw As System.IO.StreamWriter = New System.IO.StreamWriter( _
          "c:\MyFile.txt", False)
            For Each stb As TextBox In Me.Controls
                sw.WriteLine(stb.Text)
            Next
            sw.Close()
        End Using
    End Sub
End Class

Public Class Form1
    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim tlist As New List(Of String)
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                tlist.Add(c.Text)
            End If
        Next
        IO.File.WriteAllLines("MyFile.txt", tlist.ToArray)
    End Sub
    Private Sub Load_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim tlist As New List(Of String)(IO.File.ReadAllLines("MyFile.txt"))
        Dim p As Int32
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                c.Text = tlist(p)
                p += 1
            End If
        Next
    End Sub
End Class

Public Class Form1
    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim tlist As New List(Of String)
        For i As Int32 = Me.Controls.Count - 1 To 0 Step -1
            If TypeOf Me.Controls(i) Is TextBox Then
                tlist.Add(Me.Controls(i).Text)
            End If
        Next
        IO.File.WriteAllLines("C:\W-Intern\MyFile.txt", tlist.ToArray)
    End Sub
    Private Sub Load_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim tlist As New List(Of String)(IO.File.ReadAllLines( _
        "C:\W-Intern\MyFile.txt"))
        Dim p As Int32
        For i As Int32 = Me.Controls.Count - 1 To 0 Step -1
            If TypeOf Me.Controls(i) Is TextBox Then
                Me.Controls(i).Text = tlist(p)
                p += 1
            End If
        Next
    End Sub
End Class