'Данный пример позволяет вам сохранить данные из элемента ListBox в файл на 
'диске, а также загрузить данные из файла в ListBox.
'Вам понадобятся 2 элемента CommandButton.

Sub saveitems(lstin As ListBox)
 Dim i As Integer
 
 Open App.Path & "\" & lstin.Name & ".txt" For Output As #1
 For i = 0 To lstin.ListCount - 1
 Print #1, lstin.List(i)
 Next i
 Close #1
End Sub

Sub LoadItems(lstin As ListBox)
 Dim i As Integer
 Dim str As String
 
 If Len(Dir(App.Path & "\" & lstin.Name & ".txt")) Then
 Open App.Path & "\" & lstin.Name & ".txt" For Input As #1
 Do While Not EOF(1)
 Line Input #1, str
 List1.AddItem str
 Loop
 Close #1
 End If
End Sub

Private Sub Command1_Click()
 Call saveitems(List1)
 List1.Clear
End Sub

Private Sub Command2_Click()
 Call LoadItems(List1)
End Sub

Private Sub Form_Load()
 List1.AddItem "http://aa4"
 List1.AddItem "http://aa3"
 List1.AddItem "http://bb2"
 List1.AddItem "http://aa1"
 List1.AddItem "http://aa2"
 List1.AddItem "http://bb1"
End Sub