Código:
Dim i%
For i = 0 To (List1.ListCount - 1)
Open "D:\text.txt" For Append As #1
Print #1, List1.List(i)
Close #1
Next i
For i = 0 To (List1.ListCount - 1)
Open "D:\text.txt" For Append As #1
Print #1, List1.List(i)
Close #1
Next i
pues para leerlo y meterlo en algunaparte seria con la instruccion line imput como ha dixo Anhur un poco mas arriba
un saludo.