I don't understand what you want to do.

Sub test()


    If ActiveDocument.Revisions.Count + ActiveDocument.Comments.Count > 0 Then
        On Error Resume Next
        WordBasic.NextChangeOrComment
        If Err.Number <> 0 Then
            Err.Clear
            Exit Sub
         End If
        MsgBox Selection.Text
    End If
        
End Sub