Считать и записать информацию из ListBox в файл - Visual Basic .NET

Формулировка задачи:

ВОПРОС ТАКОЙ:У меня есть программа которая считывает из текстового поля информацию и вносит её в лист бокс и так же есть кнопка которая сохраняет данные из лист бокса в тхт файл и при загрузке формы данные из тхт документа загружаются в лист бокс.Но если вносишь новые данные и нажимаешь кнопку сохранить то данные которые были дублируются не подскажете как этого исправить.WindowsApplication11.rar

Решение задачи: «Считать и записать информацию из ListBox в файл»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Dim FILE_NAME As String = Application.StartupPath + "" + "LIST_BOX.TXT"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LOAD_TXT_V_LISTBOX()
    End Sub
 
 
    '===============
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text + " " + TextBox2.Text + " " + TextBox3.Text + " " + TextBox4.Text)
        TextBox1.Text = ""
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Call SAVE_LISTBOX()
    End Sub
 
 
    '===============
 
    Public Sub LOAD_TXT_V_LISTBOX()
        Try
            ListBox1.Items.AddRange(IO.File.ReadAllLines(FILE_NAME, System.Text.Encoding.Default))
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    
    Public Sub SAVE_LISTBOX()
        Try
            IO.File.WriteAllLines(FILE_NAME, ListBox1.Items.Cast(Of String), System.Text.Encoding.Default)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class
                        