

dim content As String = ""
foreach item As string In listbox.Items
textbox.Items.Add(item)
content += item
next
if File.Exists("out.txt")
then
File.Delete("out.txt")
end if
File.WriteAllText("out.txt")
Content 1 Content 2 Content 3
For Each Line As String In TextBox1.Lines ListBox1.Items.Add(Line) Next