Pasar de excel a txt

Buenos . La consulta es la siguiente, quisiera una macro en donde me cree un archivo txt, es decir el contenido de una hoja lo guarde como un archivo de texto, mi informacion en la hoja esta asi: 1l15232658lJIMENEZlHUAMANAI estan separados por el caracter "l", y lo que deseo es que esa hoja se guarde como un archivo txt con la misma estructura o igual, lo he intentado con esta instruccion:
ruta = "D:\Mis documentos\PDT617"
nbre = Worksheets("MENU").Range("A5")
Worksheets("SUNAT").Select
ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".lqc"
pero me guarda con otros tipos de caracteres. Podrian Ayudarme
Gracias.