Comment.Ancestor (Word)

For comments that are replies to existing comments, returns the parent Comment object; for new (top-level) comments, returns Nothing.

Dim cmmAncestor As Comment
Set cmmAncestor = Selection.Comments(1).Ancestor