The implementation of CHRTRAN() it is not made in order to remove characters.
Some hope in VFP9SP1.

SET ESCAPE ON
CLEAR
FOR N=10 TO 23
	? 'LENGHT ',INT(2^M.N)
	T1=SECONDS()
	=STRTRAN(SPACE(2^M.N),SPACE(1),SPACE(0))
	STIME=SECONDS()-T1
	?? 'STRTRAN' AT 30, SECONDS()-T1 AT 40

	T1=SECONDS()
	=CHRTRAN(SPACE(2^M.N),SPACE(1),SPACE(0))
	CTIME=SECONDS()-T1
	?? 'CHRTRAN' AT 60,M.CTIME AT 70,'Ratio',M.CTIME/M.STIME AT 80
NEXT

Of course, without destroy the good implementation for character translation:

SET ESCAPE ON
CLEAR
FOR N=10 TO 23
	? 'LENGHT ',INT(2^M.N)
	T1=SECONDS()
	=STRTRAN(SPACE(2^M.N),SPACE(1),SPACE(1))
	STIME=SECONDS()-T1
	?? 'STRTRAN' AT 30, SECONDS()-T1 AT 40

	T1=SECONDS()
	=CHRTRAN(SPACE(2^M.N),SPACE(1),SPACE(1))
	CTIME=SECONDS()-T1
	?? 'CHRTRAN' AT 60,M.CTIME AT 70,'Ratio',M.CTIME/M.STIME AT 80
NEXT