Comments on: VBA Function To Calculate Number of Words in a String http://www.automateexcel.com/2008/09/20/vba-function-to-calculate-number-of-words-in-a-string/ Everything Excel. Only Excel. Mon, 21 Nov 2011 07:25:47 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Jon Peltier http://www.automateexcel.com/2008/09/20/vba-function-to-calculate-number-of-words-in-a-string/comment-page-1/#comment-873 Jon Peltier Sat, 20 Sep 2008 13:01:47 +0000 http://www.automateexcel.com/?p=891#comment-873 An alternative, especially if you want to do something with the words, is something like the function below, which returns the number of words and an array containing these words: Function CountWords(sInput As String, iWords As Long, vWords As Variant) As Boolean vWords = Split(sInput, " ") iWords = UBound(vWords) + 1 - LBound(vWords) CountWords = True End Function Sub TestCountWords() Dim sSentence As String Dim iCount As Long Dim vSplit As Variant Dim bTest As Boolean sSentence = InputBox("Type a sentence") bTest = CountWords(sSentence, iCount, vSplit) MsgBox sSentence & vbNewLine & vbNewLine & "has " & iCount & " words." End Sub An alternative, especially if you want to do something with the words, is something like the function below, which returns the number of words and an array containing these words:

Function CountWords(sInput As String, iWords As Long, vWords As Variant) As Boolean
vWords = Split(sInput, ” “)
iWords = UBound(vWords) + 1 – LBound(vWords)
CountWords = True
End Function

Sub TestCountWords()
Dim sSentence As String
Dim iCount As Long
Dim vSplit As Variant
Dim bTest As Boolean
sSentence = InputBox(“Type a sentence”)
bTest = CountWords(sSentence, iCount, vSplit)
MsgBox sSentence & vbNewLine & vbNewLine & “has ” & iCount & ” words.”
End Sub

]]>