Private Sub Command1_Click()
Dim Canal% 'as integer
Dim x$
For i = 0 To List1.ListCount - 1 'recorremos cada elemento del list
    x = x & vbCrLf & List1.List(i) 'a la variable x le metemos el contenido de cada valor de la lista
Next i
Canal = FreeFile 'abrimos canal
Open "c:\lista.txt" For Output As Canal 'abrimos el archivo en modo de escritura
Print #canal, x 'escribimos el contenido
Close #Canal 'cerramos el canal
End Sub
 

Private Sub Command1_Click()
Dim Canal% 'as integer
Dim x$
x =  List1.List(i) 'a la variable x le metemos el contenido del valor escogido en la lista, i es la fila que vamos a guardar
Canal = FreeFile 'abrimos canal
Open "c:\lista.txt" For Output As Canal 'abrimos el archivo en modo de escritura
Print #canal, x 'escribimos el contenido
Close #Canal 'cerramos el canal
End Sub