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