Split String into Array of Words

This example shows how to do split a string into an array of words.

Dim s As String
s = "Chilkat Software, Inc. : A Software Components Company."

Dim words() As String

' Split the string at the space characters.
words() = Split(s)

Dim tempStr As String
For i = 0 To UBound(words)
    ' Eliminate punctuation
    tempStr = Replace(words(i), ".", "")
    tempStr = Replace(tempStr, ",", "")
    tempStr = Replace(tempStr, ":", "")
    If Len(tempStr) > 0 Then
        List1.AddItem tempStr
    End If
Next