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