ElseIf Selection.Characters(1) <> Chr(13) Then"

Du solltest Deinen Code stets hinterfragen, ob es weitere/bessere Eigenschaften/Methoden gibt. Direktere Wege.

Schau Dir mal folgendes an:

Selection.Characters(Selection.Characters.Count)

Wenn Dein Cursor nun hinter dem letzten Zeichen steht, bzw., vor dem CHR(13), kannst Du diese Bedingung wie folgt prüfen:

IF Selection.Characters(Selection.Characters.Count) = CHR(13) ...