vbaで置換回数を表示する方法を教えて下さい。

通常のexcelでは、置換で、すべて置換を行うと、結果のMsgBoxで「○○件を置換しました。」と表示されますが、vbaでは、Replaceが置換ですが、結果のMsgBoxで「○○件置を換しました。」と表示させることが出来ません。どの様な記述を作成したら置換件数結果を表示出来るのでしょうか。

因みに、同一セル内に置換対象の文字が複数有りますので、セルの個数では不可です。

済みませんが、教えて頂きたく、宜しくお願い致します。