Comment.Scope (Word)

Devuelve un objeto Range que representa el intervalo de texto marcado por el comentario especificado.

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