Удалить выделенный элемент в ListBox и записать его содержимое в файл

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("file2.txt", vbCrLf + TextBox1.Text + "|" + TextBox2.Text + "|" + TextBox3.Text + "|" + TextBox4.Text + "|" + TextBox5.Text + "|" + TextBox6.Text, True)
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(IO.File.ReadAllLines("file2.txt", System.Text.Encoding.Default))
    End Sub
 
    Private Sub BaseEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Items.AddRange(IO.File.ReadAllLines("file2.txt", System.Text.Encoding.Default))
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
    End Sub

        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        IO.File.WriteAllLines("C:\ListBox.txt", ListBox1.Items.Cast(Of String).ToArray, System.Text.Encoding.Default)

        IO.File.WriteAllText("C:\ListBox.txt", String.Join(vbCrLf, ListBox1.Items.Cast(Of String).ToArray), System.Text.Encoding.Default)