excel - テキストを検索し、見つかった場合はボックスをポップアップし、単語が表示される回数を表示するExcelマクロ

Question

誰かがこのコードを変更して、単語が見つかったときにその単語の出現回数も表示するように手伝ってもらえますか? ありがとう！

Sub findtext()
'
' findrobot Macro
' Will find the word robot
'
' Keyboard Shortcut: Ctrl+t
'
Dim found As Variant

Set found = Sheets("Email").Cells.find("robot", Sheets("Email").Cells(1, 1), xlValues, xlPart)

If (Not found Is Nothing) Then


    'found
    MsgBox "Words Found =" & found, vbOKOnly, "Found"


Else

    'not found
MsgBox "Sorry the text was not found please try again. Macro stopping"

 End If

End Sub