StrCtrChar

Function StripControlChars(source As String, Optional KeepCRLF As Boolean = _
True) As String
Dim index As Long
Dim bytes() As Byte

' the fastest way to process this string

' is copy it into an array of Bytes

bytes() = source
For index = 0 To UBound(bytes) Step 2
' if this is a control character

If bytes(index) < 32 And bytes(index + 1) = 0 Then
If Not KeepCRLF Or (bytes(index) <> 13 And bytes(index) <> 10) Then
' the user asked to trim CRLF or this

' character isn't a CR or a LF, so clear it

bytes(index) = 0
End If
End If
Next

' return this string, after filtering out all null chars

StripControlChars = Replace(bytes(), vbNullChar, "")

End Function