Dim SW as StreamWriter
Dim FS as FileStream

FS=New FileStream("C:\Items.txt", FileMode.Create)
SW=New StreamWriter(FS)
Dim itm as Object
For Each itm In Listbox1.Items
SW.WriteLine(itm.ToString)
Next

SW.Close
FS.Close

--------------

Hope to help