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