function removeWord(lcString, lcWord) local re re = CREATEOBJECT('vbscript.regexp') re.IgnoreCase = .T. re.Pattern='\b' + m.lcWord + '\b' return re.Replace(m.lcString, '') endfuncNeeds a little refinement to get rid of residual white space, but close.