Ok Wayne,
I've solved that issue, on my own, with the following code:
For c = 1 To Len(SearchCharacterSet)
SearchChar = Mid(SearchCharacterSet, c, 1)
CharCount = UBound(Split(strInput, SearchChar))
For d = 1 To CharCount
CarPos = InStr(strInput, SearchChar)
If Not...