Type Info:
WordsAnalysis As WordsAnalysis
Dim Tool As WordsAnalysis Set Tool = Application.Tools.WordsAnalysis MsgBox Tool.CountWords("This is a text.")