You may need to add more characters (e.g. <>\/?*&^%$#@~) to the exclusions list. Alternatively, you might change:
Code:
If Asc(.Words(i).Characters.First) < 128 Then
to:
Code:
If ((Asc(.Words(i).Characters.First) > 64) And (Asc(.Words(i).Characters.First) <91)) Or ((Asc(.Words(i).Characters.First) > 96) And (Asc(.Words(i).Characters.First) <123))Then
in which case, you could delete:
|,|.|!|:|;|<|>|(|)|{|}|{|}
from:
Const StrExcl As String