Splitarray

Public Function Splitter(SplitString As String, _
SplitLetter As String) As Variant
ReDim SplitArray(1 To 1) As Variant
Dim TempLetter As String
Dim TempSplit As String
Dim i As Integer
Dim x As Integer
Dim StartPos As Integer
SplitString = SplitString & SplitLetter
For i = 1 To Len(SplitString)
TempLetter = Mid(SplitString, i, 1)
If TempLetter = SplitLetter Then
TempSplit = Mid(SplitString, (StartPos + 1), _
(i - StartPos) - 1)
If TempSplit <> "" Then
x = x + 1
ReDim Preserve SplitArray(1 To x) As Variant
SplitArray(x) = TempSplit
End If
StartPos = i
End If
Next i
Splitter = SplitArray
End Function

'es.

Private Sub Command1_Click()
Dim SplitReturn As Variant
SplitReturn = Splitter(Text1.Text, " ")
MsgBox SplitReturn(1)
End Sub

Inputs:The string to split. The splitter, e.g. " "

Returns:Returns an array of the results.

Assumes:
Private Sub Command1_Click()
Dim SplitReturn As Variant
SplitReturn = Splitter(Text1.Text, " ")
MsgBox SplitReturn(1)
End Sub