SaveListBox

Sub Listbox_Save(SavePath As String, Lst As ListBox)
'Es:

'ListBox_Save ("c:\windows\desktop\list.lst", list1 )

Dim List As Long
On Error Resume Next
Open SavePath$ For Output As #1
For List& = 0 To Lst.ListCount - 1
Print #1, Lst.List(Listz&)
Next List&
Close #1
End Sub