target.SplitString

Breaks an input string into an array of words. Any character which is not a letter, underscore, or a digit is considered to be a word separator.

Function SplitString(text)

string text - input text

one dimensional array - will contain all of the words in the input text

Example

Sample code

Function IsName( s, ByRef v1, ByRef v2, ByRef v3 )

Dim w, n, l, c

w = Target.SplitString(s)

n = UBound(w)

IsName = 0

l = Len(w(0))

If Mid(s, l+1,2)=", " Or Mid(s, l+1,2)=". "Then

If n = 1 Then

IsName = 1

v2 = w(1)

ElseIf n > 1 Then

If Len(w(2)) < 3 Then IsName = 1

If n > 2 Then

For i = 3 To n: c = c & " " & w(i): Next

v3 = Trim(c)

End If

v2 = w(1) & " " & w(2)

End If

v1 = Left(s, l)

End If

End Function