Function fCountWords(strIn As String) As Integer
     Dim varWords As Variant

     If InStr(strIn, " ") > 0 Then
        varWords = Split(strIn, " ")
        fCountWords = UBound(varWords) - LBound(varWords) + 1
     Else
        fCountWords = 1
     End If

 End Function

Function WordCount(str As String) As Long

Dim c As String  ' Character to examine
Dim i As Long  ' index into string
Dim nw As Long  ' number of words counted
Dim inword As Boolean ' indicates c is in a word or outside a word

i = 1
Do While i <= Len(str)
 c = mid$(str, i, 1)
 If (c = Chr$(32) OR c = Chr$(9)) Then
 ' c is a "white character" (a non-word character)
 ' Add other characters if you like:  NL chr(10), CR chr(13), etc.
  inword = False
 ElseIf Not inword then
  inword = True
  nw = nw + 1
 End If
 i = i + 1
Loop 

WordCount = nw

End Function