Excel - Xls a Txt sin espacios

como puedo exportar un archivo xls a txt pero omitiendo los espacios generados por estar los datos en columnas, ejemplop

XLS
ColA Col B ColC
XXX ZZZZ WWI

TXT
XXXZZZZWWI

Necesitas unir las tres cadenas en una variable y escribir la linea en el txt ejemplo:

Dim FileSysObj As Object
Dim ArchivoTxt As Object
Dim strLineaTexto As String

strLineaTexto = Range("A1") & Range("B1") & Range("C1")

Set FileSysObj = CreateObject("Scripting.FileSystemobject")
Set ArchivoTxt = FileSysObj.CreateTextFile("C:\Ejemplo.txt", True)

ArchivoTxt.WriteLine strLineaTexto

ArchivoTxt.Close

Espero que te sea de utilidad

gracias por el code voy a probarlo en excel, mm ahora bien la duda es que no siempre voy a saber la cantidad de columnas a procesar