A new VB6 .EXE with a listbox...

Private Sub Form_Load()

'Put some letters in the ListBox
For i = 0 To 9
    List1.AddItem Chr$(i + Asc("A"))
Next i
'And save them to a text file
Open "d:\myfile.txt" For Output As #1
For i = 0 To 9
    Print #1, List1.List(i)
Next i
Close #1
End Sub

Regards.

Sub SaveListboxToFile(lstbox As Listbox, filename As String)
    Dim I As Integer
    Dim fNum As Integer
    If lstbox.ListCount = 0 Then Exit Sub
    fNum = FreeFile
    Open filename For Output As #fNum
    For I = 0 To lstbox.ListCount - 1
        Print #fNum, lstbox.List(I)
    Next I
    Close #fNum
End Sub

Usage:

SaveListboxToFile List1, "C:\directory\filename.lst"
SaveListboxToFile List1, "D:\VBProject\savedfiles\ListBox.txt"

Remember that this sub doesn't have any errorhandler so try to type the
correct filename or else a runtime error will popup.