Dim i%, hFile

  hFile = FreeFile
 
  Open "C:\Datos.txt" For Append As #1
 
  For i = 0 To Text1.Count - 1
    Print #1, , Text1(i).Text & " " & Text2(i).Text
  Next
 
  Close #1

'En el archivo me escribe asi :

        1 AAAA
        2 BBBB
        3 .....