Can I count the number of replaced texts in VBA

Hi, I am changing all instances of text1 to text2 in my document in VBA. The change itself is very easy Set WordRange = ActiveDocument.Content WordRange.Find.Execute FindText:="Text1", ReplaceWit...