Dim myString as String
Dim arr() as String
Dim str_len as Integer

myString = "Come visit Mzansi over the holidays"
arr = Split(myString, " ")
'Compute string length i.e number of 'words'
str_len = UBound(arr) - LBound(arr) + 1