Форум по VBA и MS Office

Как с помощью макроса узнать, что абзац пустой?

Предполагается, что выделение в виде мигающего курсора и курсор находится в нужном месте.

Sub Macro()
   
    If Selection.Paragraphs(1).Range.Characters.Count = 1 Then
        MsgBox "Абзац пустой", vbInformation
    Else
        MsgBox "Абзац не пустой", vbInformation
    End If
 
End Sub

Выручили, спасибо большое!