SplitMulti

Function Split2(ByVal Text As String, Optional ByVal RowSeparator As String = _
vbCrLf, Optional ByVal ColSeparator As String = ",") As String()
Dim lines() As String
Dim cols() As String
Dim r As Long
Dim c As Long

' first, split the string in lines

lines() = Split(Text, RowSeparator)
' initialize the result array

' start with just one column

ReDim res(UBound(lines), 0) As String

' parse each line of text

For r = 0 To UBound(lines)
cols() = Split(lines(r), ColSeparator)

' resize the result array if necessary

If UBound(cols) > UBound(res, 2) Then
ReDim Preserve res(UBound(lines), UBound(cols)) As String
End If
' copy the individual values

For c = 0 To UBound(cols)
res(r, c) = cols(c)
Next
Next

Split2 = res()

End Function