<code>Public Function VB5_Split(ByVal Expression As String, _
  ByVal Delimiter As String) As Variant
  Dim sPos As Long
  Dim sExpr() As String
  Dim nCount As Integer
 
  nCount = -1
  Do
    nCount = nCount + 1
    ReDim Preserve sExpr(nCount)
    sPos = InStr(Expression, Delimiter)
    If sPos > 0 Then
      sExpr(nCount) = Left$(Expression, sPos - 1)
      Expression = Mid$(Expression, sPos + Len(Delimiter))
    Else
      sExpr(nCount) = Expression
      Expression = ""
    End If
  Loop Until Expression = ""
 
  VB5_Split = sExpr
End Function</code>