Загрузка из файла в ListBox и обратное сохранение Листа!

[Yurik]

Привет всем, прошу всех помочь!
Проблемма: Вообщем все сказанно заголовком!

Заранеее благодарен!

[Yurik]

Вообщем всем спаибо, но я уже сам навоял вернее отыскал!
Вообщем мож кому пригодится!

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