Comment.Replies (Word)
Returns a Comments collection of Comment objects that are children of the specified comment.
Calling the Add method on the returned collection of replies adds a new reply, unless the collection was accessed from a reply to a reply. The Comments.ShowBy property fails when called on the Comments collection returned by the Replies property.
Dim cmmsReplies As Comments
Set cmmsReplies = Selection.Comments(1).Replies