Visual Basic - ¿Cómo puedo guardar un ListBox?

Hola!! ¿Me pueden decir cómo puedo guardar un listbox en un archivo y cómo puedo abrirlo de nuevo en otro listbox?

Gracias de antemano

'Codigo para guardar
Dim I As Integer, Linea As String
Open "C:\Archivo.txt" For OutPut As #1
For I = 0 To List1.ListCount - 1
Linea = List1.List(I)
Print #1, Linea
Next I
Close #1

'Codigo para abrir
Dim I As Integer, Linea As String
Open "C:\Archivo.txt" For InPut As #1
List1.Clear
Do While Not Eof(1)
Line Input #1, Linea
List1.AddItem Linea
Loop
Close #1

Espero que te sirva...

Muchas gracias Christian