Visual Basic - ListBox pregunta facil

Hola deseo saver como guardar el contenido de un Listbox en un archivo de texto para que despues pueda abrir el archivo en mi listbox.

(guardar y abrir dentro de un listbox)

Aquí tienes un pequeño ejemplo de como guardar y después recuperar el contenido de una lista:

Dim i As Integer
Dim f As Integer
Dim s As String

f = FreeFile
Open "c:\temp\lista.txt" For Output Access Write As #f
For i = 0 To List1.ListCount - 1
Print #f, List1.List(i)
Next i
Close #f

List1.Clear

f = FreeFile
Open "c:\temp\lista.txt" For Input Access Read As #f
While Not EOF(f)
Line Input #f, s
List1.AddItem s
Wend
Close #f