>FUNCTION NoCr(tcString)
>tcString = ALLTRIM(tcString)
>DO WHILE RIGHT(tcString,1) = CHR(13) AND !EMPTY(tcString)
> tcString = SUBSTR(tcString,1,LEN(tcString)-1)
>ENDDO
>RETURN tcString

Thanks. I changed a few things.

FUNCTION NoCr(tcString)
tcString=ALLTRIM(tcString)
DO WHILE INLIST(RIGHT(tcString,1),CHR(13),CHR(10),CHR(160)) AND NOT EMPTY(tcString)
tcString=ALLTRIM(SUBSTR(tcString,1,LEN(tcString)-1))
ENDDO
RETURN tcString