SQL Server - Contar numero de reeplazos en un texto word

Hola quisiera saber si se puede contar cuantas veces se esta reeplazando una palabra en un texto word, la busueda y reemplazo la hago con una aplicacion vb6, quisiera que tambien me cuentes cuantos cambios realizo. este es parte del codigo

With Selection.Find
.Text = cadena1
.Replacement.Text = cadena2
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = paltotal
.MatchWildcards = comon
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceAll