Как определить количество слов в строке

Самый простой способ посчитать количество слов в данной строке выглядит следующим образом:

Dim varArray as Variant

varArray = Split(“Write The String Expression Here”)
MsgBox (UBound(varArray) + 1)

В данном случае в диалоговом окне будет цифра 5.