Ich hab mal deinen Weg etwas anders umgesetzt - zum Anschauen. Darin findest du auch die Lösung zu deinem Problem.

  Dim Wort As Range
  Dim NeuerText As String
  Dim ch As String * 1
  Dim s As Long
  
  For Each Wort In ActiveDocument.Words
    
    Call Wort.MoveEndWhile(vbCr & vbLf, wdBackward)
    
    For s = 1 To Len(Wort)
      ch = Mid$(Wort, s, 1)
      Select Case LCase$(ch)
        Case "a" To "m"
          ch = Chr$(Asc(ch) + 13)
        Case "n" To "z"
          ch = Chr$(Asc(ch) - 13)
      End Select
      NeuerText = NeuerText & ch
    Next
    Wort = ""
  Next
  
  Selection.TypeText (NeuerText)