Generar fichero de texto con distintos espacios entre columnas

[neliovp]

Buenos días:

He leído un poco de como generar un fichero de texto pero no he logrado saber como generar distintos espacios entre columnas. O sea, que salga la columna 1, dos espacios columna 2, seis espacios columna 3.

Sería algo así:

Nelio  36      Leer
Yune  34      Bailar

Agradezco a todo aquel que me pueda ayudar.

[Antoni]

Ya te han contestado a esto en otro foro.

Sub MiTxt(): On Error Resume Next
Open "C\MisTxt\MiTxt.txt" For Output As #1 '<-- Adapta la ruta a tus necesidades
For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
   Print #1, Range("A" & x) & "  " & Range("B" & x) & "      " & Range("C" & x)
Next
Close #1
End Sub