excel vba word count
'Fast VBA function to count the words in a string. Words are delimited by
'white space. White space is ASCII 0 thru 32.
Function WordCount&(s$)
Dim i&, b() As Byte
If 0 = LenB(s) Then Exit Function
b = s
If b(0) > 32 Then WordCount = 1
For i = 0 To LenB(s) - 4 Step 2
If b(i) < 33 Then If b(i + 2) > 32 Then WordCount = WordCount + 1
Next
End Function
'-----------------------------------------------------------------------------
MsgBox WordCount("A b cd" & vbcrlf & "eee") '<--displays: 4