Форум по VBA и MS Office

С помощью этого макроса создаю ссылку на слово и убираю из него правый пробел.
Как узнать, сколько в слове символов?

Sub Макрос()

    Dim Слово As Range
   
    Set Слово = Selection.Words(1)
    Слово.MoveEndWhile Cset:=" ", Count:=wdBackward
   
End Sub

Результат выводится в View - Immediate Window.

Sub Макрос()

    Dim Слово As Range
   
    Set Слово = Selection.Words(1)
    Слово.MoveEndWhile Cset:=" ", Count:=wdBackward
    Debug.Print Слово.Characters.Count
   
End Sub

Большое спасибо!