str2bclean = memo.field
noxspaces = strtran(str2bclean,space(2),"") &&remove blanks more than one space
noxlines = strtran(noxspaces,chr(13)+chr(10),"") &&see below
cleanstr = Upper(noxlines) &&or some other finishing touch

&& note, this method assumes you want a single unbroken string from your memo field. This won't work if you want to preserve line breaks, yet strip extra blank lines.