return a portion of a string value

[crispin]

Dim strArray() As String
Dim strTest as String

strTest = "This Is A Test"
'Use the Split Function
strArray = Split(strTest, " ")
MsgBox strArray(1)
MsgBox strArray(2)


HTH