[VB] Строки

[Vitalik81311]

Подскажите, пожалуйста, почему код пишет только "не совпадают"... нет всегда последнего и первого слова, чтоб совпадали...

Sub IsWordsMatch()
    Dim result$
        'If Selection.Words(1).Text = Selection.Words(Selection.Words.Count).Text Then
    If Selection.Words.First = Selection.Words.Last Then
        result = "совпадают"
     Else
        result2 = "не совпадают"
    End If
    
    Selection.Collapse wdCollapseEnd
    Selection.TypeParagraph
    Selection.TypeText result
End Sub