Conservar el formato

Hola experto:
Yo uso una macro para exportar datos de una hoja en excel que es la siguiente:
Sub grabar()
linea = FreeFile
Open "c:\ver\ver_uno.txt" For Output As linea
For c = 1 To Len(Range("a1").Value)
tt = tt + Mid(Range("a1").Value, c, 1)
Next
Write #linea, tt
Close #linea
End Sub
el problema es que las guarda asi:
"1" "2" "3"
y yo necesito que los guarde asi:
1 2 3
¿Se puede?
Gracias.