Grabar TXT con tabuladores

[alekula]

Hola. Estoy leyendo con exito datos de los .txt . Estos estan delimitados por tabuladores.
138 1 corre
1225 1 baja
142 1 corre
266 1 mira

Esto logro con este codigo

Do While Not EOF(1)
Line Input #1, sLinea
a = Split(sLinea, vbTab)
i = i + 1
b(i, 0) = AgregarCeros(a(0))
b(i, 1) = a(1)
b(i, 2) = a(2)
Loop
CargarArray = b
ama = i
Close #1
End Function

Quiero hacer lo mismo pero grabando. Lo intente pero no me graba igual.

Function GraboTxt()
n = "138"
y="1"
w="corre"
nombre = "Carlos"
Open "c:\VB Listas\Datos.txt" For Output As #1
Write #1, n, vbTab, y,vbTab,w
'asi me graba el TXT "138"," ","1"," ","corre"
Close #1
End Function

yo necesitaria que grabe sin comillas delimitado por tabuladores y el registro que viene en el proximo renglon igual que como leo los datos. Gracias.
Pd:probe con print y tampoco pude