Highlight every character not followed by a space

[Jimduggan]

For example:

Sub Demo()
Application.ScreenUpdating = True
Dim Rng As Range
For Each Rng In ActiveDocument.StoryRanges
  With Rng
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Forward = True
      .Wrap = wdFindStop
      .MatchWildcards = True
      .Text = "[! ^13^l^m^n^s^t]{2,}"
    End With
    Do While .Find.Execute
      .End = .End - 1
      .HighlightColorIndex = wdTurquoise
      .Collapse wdCollapseEnd
    Loop
  End With
Next Rng
Application.ScreenUpdating = True
End Sub

The above code finds and highlights any string of more than two characters, excluding white-space characters (spaces, tabs, paragraph breaks, etc.) not followed by a white-space character.

The code excludes spaces, tabs, and paragraph breaks. Is there a way to also exclude the EN SPACE character?

en space: U+2002  EN SPACE ( · UTF8: U+2002 (8194))

These are the codes for the EN SPACE character, but I can't understand where to add it in the code above.

Thank you once again for your help.