Sub divideString(ByVal strDivide As String)
 
Dim arrayString() As String
Dim numStrings As Long
Dim Counter As Long
Dim tmpString As String
Dim boolDivide As Boolean
 
tmpString = ""
boolDivide = True
For Counter = 1 To Len(strDivide)
  Select Case Mid$(strDivide, Counter, 1)
    Case Chr$(34)
      boolDivide = Not boolDivide
    Case ";"
      If boolDivide Then
        numStrings = numStrings + 1
        ReDim Preserve arrayString(numStrings)
        arrayString(numStrings) = tmpString
        tmpString = ""
      Else
        tmpString = tmpString + ";"
      End If
    Case Else
      tmpString = tmpString + Mid$(strDivide, Counter, 1)
  End Select
Next Counter
 
If tmpString <> "" Then
  numStrings = numStrings + 1
  ReDim Preserve arrayString(numStrings)
  arrayString(numStrings) = tmpString
End If
 
End Sub