A Split Procedure

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, Len(SplitLetter))
  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