Comment.Scope (Word)

Returns a Range object that represents the range of text marked by the specified comment.

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