strContents = [asdkjdfasksometextsdjafSOMETEXTfdasjasdf] wait window strtranc( strContents, "sometext", "MoreText" ) function strtranc( tcString, tcPattern, tcReplacement ) * Create a regular expression object local loRegExp loRegExp = createobject( "VBScript.RegExp" ) * Set our pattern loRegExp.pattern = tcPattern loRegExp.IgnoreCase = .t. loRegExp.global = .t. return loRegExp.replace( tcString, tcReplacement ) endfunc