| | Public Function fSplit(expression As String, _ Optional delimiter As String = " ", _ Optional compare As VbCompareMethod = vbBinaryCompare) _ As Variant Dim L%, nb%, p% Dim strResult As String Dim varResult() As Variant If IsNull(expression) Then fSplit = Null Else strResult = expression L = Len(delimiter) If IsNull(delimiter) Or delimiter = "" Then fSplit = expression Else p = InStr(1, expression, delimiter, compare) If p = 0 Then fSplit = expression Else Do While p > 0 nb = nb + 1 ReDim Preserve varResult(nb) varResult(nb - 1) = left(strResult, p - 1) strResult = Mid(strResult, p + L) p = InStr(1, strResult, delimiter, compare) If p = 0 Then varResult(nb) = strResult Loop fSplit = varResult() End If End If End If End Function | | |