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