CleanNonPrintingChar

Dim regex As New RegExp 'define library vbscript regular expressions

With regex
.IgnoreCase = True
.Pattern = "[A\u0000-\u007F]"
.Global = True
End With
TTX2 = regex.Replace(TTX, "") 'string clean replace with nothing
End Sub



Function RegExpReplace(strVal As String) As String
'Dim reRegExp As RegExp
Set reRegExp = New RegExp
With reRegExp
.Global = True
.Pattern = "[^A-Za-z0-9]+"
RegExpReplace = .Replace(strVal, "")
End With
End Function


Sub CleanFile()
Dim strSource As String
strSource = "Test123<>,./?:[]!_@#$%^&*()\-+={}|"
strCleaned = RegExpReplace(strSource)

End Sub