Free Programming Tutorials & Source Code

A simple function that count number of words in a given text string, assuming that it’s delimited by spaces:

 
    Function countwords(ByVal str As String)
        Dim result As Integer
        result = UBound(Split(Trim(Replace(str, Space(2), Space(1))))) + 1
        Return result
    End Function

Happy Coding!