Как записать из listbox все строки в *.txt файл

Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("111")
        ListBox1.Items.Add("222")
        ListBox1.Items.Add("333")
        Dim writer As New System.IO.StreamWriter("D:\0\TEST1.TXT")
        For Each element In ListBox1.Items
            writer.WriteLine(element)
        Next
        writer.Close()
    End Sub
End Class

        Dim Massiv(ListBox1.Items.Count - 1) As String
        ListBox1.Items.CopyTo(Massiv, 0)
        IO.File.WriteAllLines("C:\4.txt", Massiv)

 IO.File.WriteAllLines("c://", (From p As String In ListBox1.Items Select p).ToArray)

ListBox1.Items.AddRange(IO.File.ReadAllLines("C:\1.txt", System.Text.Encoding.Default))

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 r = New IO.StreamReader("c:\test.txt")
 While (r.Peek() > -1)
  ListBox2.Items.Add(r.ReadLine)
 End While
 r.Close()
End Sub

'сохранить список в файл
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim i As Integer
 w = New IO.StreamWriter("c:\test.txt")
 For i = 0 To ListBox1.Items.Count - 1
  w.WriteLine(ListBox1.Items.Item(i))
 Next
 w.Close()
End Sub

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