Esta es la macro
Private Sub CommandButton1_Click()
'Copia listbox a txt
'Por.Dam
Sheets("Hoja2").Select
Sheets("Hoja2").Cells.Clear
ufila = Range("A" & Rows.Count).End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
Sheets("Hoja2").Range("A" & ufila) = ListBox1.List(i, 0)
Sheets("Hoja2").Range("B" & ufila) = ListBox1.List(i, 1)
Sheets("Hoja2").Range("C" & ufila) = ListBox1.List(i, 2)
Sheets("Hoja2").Range("D" & ufila) = ListBox1.List(i, 3)
Sheets("Hoja2").Range("E" & ufila) = ListBox1.List(i, 4)
Sheets("Hoja2").Range("F" & ufila) = ListBox1.List(i, 5)
Sheets("Hoja2").Range("G" & ufila) = ListBox1.List(i, 6)
ufila = ufila + 1
Next
ActiveWorkbook.SaveAs Filename:="list a txt.txt" _
, FileFormat:=xlText, CreateBackup:=False
MsgBox "Listbox copiado a archivo txt"
Tienes que crear una hoja llamada "Hoja2" para poner temporalmente los datos del list y después guardarlos como txt.
Saludos. Dam
Si es lo que necesitas.