Public Function DelimElementCount (
DelimStr As Variant,
Optional Delimiter As String = ","
) As Long
Return the number of elements in the delimited string
Dim i As Long
i = xf.Gen.DelimElementCount(delimiter, DelimStr)
i = xf.Gen.DelimElementCount(delimiter, DelimStr, Delimiter)
DelimElementCount("one,two,three,four") => 4