Thanks for the reply. That didn't work but did end up trying some regex and seems to work.
Code:strPattern = "[^\x20-\x7E\t\f\n\r]" strReplace = " " outstr = RegExpReplace(outstr, strPattern, strReplace) Function RegExpReplace(Str, Pattern, Replacement) Set objRegExp = New RegExp objRegExp.Pattern = Pattern objRegExp.Global = True objRegExp.IgnoreCase = True RegExpReplace = objRegExp.Replace(Str, Replacement) Set objRegExp = Nothing End Function




Reply With Quote