Hi
I'm making an adressbook.I fill in lastname, firstname, city & phonenumber, each in a textbox. By clicking on a Comm.Button everything goes into a listbox (items sorted on lastname). To SAVE everything I use next code:

Dim intT As Integer
Dim F As Integer
Dim strLijst As String
On Error Resume Next
F = FreeFile
Open "Filename.extension" For Output As #F
Print
For intT = 1 To List1.ListCount
Print #F, List1.List(intT - 1)
Next intT
Close #F
End If
Does anyone have the code to OPEN the listbox? THX