Comment.Scope (Word)

Retorna um objeto Range que representa o intervalo de texto marcado pelo comentário especificado.

If Selection.Comments.Count >= 1 Then 
 Set myRange = Selection.Comments(1).Scope 
 MsgBox myRange.Text 
End If