problerma con codigo

hola a todos!!
tengo un problema con este codigo:
vara = FileToStr("C:\CLIENTES.TXT")
varb = ChrTran(vara, CHR(13)+CHR(10), CHR( 0 )
varb = strTran(varb, CHR( 0 )+CHR( 0 ), "x")
varb = CHRTran(varb, "x", "")
varb = strTran(varb, CHR( 0 ), chr(13)+CHR(10))
strtofile(varb, "C:\CLIENTES.TXT

El problema que tengo es que me quita todos los espacios que hay en el txt y
lo que necesito es que me quite los espacios en blanco que se me crean al
final de txt.
Nota: este archivo txt lo genero de un reporte con el report form y lo
necesito para mandarlo al LPT1.

Gracias!

Edwin Torres
VFP8
W2K