Сохранения в TextBox

 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    End Sub

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)  ' Добавляем в ListBox
        TextBox1.Text = ""   ' Чистим TextBox
    End Sub
 
    Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Dim Massiv(ListBox1.Items.Count - 1) As String   ' Что такое count - 1 Не знаю
        ListBox1.Items.CopyTo(Massiv, 0) ' Копируем из listbox в масив
        IO.File.WriteAllLines(Application.StartupPath & "\save.txt", Massiv) ' Пишем в файл save.txt то что находится в масиве
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.AddRange(IO.File.ReadAllLines(Application.StartupPath & "\save.txt"))  ' Добавляем в listbox то что находится в save.txt
    End Sub
End Class