Exportar datos

Puedes hacerlo de la siguiente forma :
Dim Linea As String
Dim Arch As String
Dim I As Integer
Private Sub Exportar_Click()
   Arch = "C:\Mitexto.txt"
   Open Arch For Output Access Write As #1
   For I = 0 To List1.ListCount
   Linea = ""
   Linea = Linea & List1.List(I)
   Print #1, Linea
Next I
Close #1
End Sub
Private Sub Form_Load()
   List1. Clear
   List1. AddItem "Juan"
   List1. AddItem "Carlos"
   List1. AddItem "Maria"
   List1. AddItem "Rosa"
   List1. AddItem "Pedro"
End Sub
Suerte !