how to split string using multichar string as delimiter in vba (excel)

Question

Please tell me how to split a string into parts, using as a separator a multichar string, not a single symbol

for example

array = MySplit("xdatayydatazzz", "data");

and result

array(0) = "x"
array(1) = "yy"
array(2) = "zzz"

Answer 1

Um, why not just use:

arr = Split("xdatayydatazzz", "data")

Just to be sure, I tested this, and it works as expected. Docs on Split here .

Answer 2

First do a replace on the string eg data with a chosen character eg @ and then split on that:

secondstring = Replace("xdatayydatazzz", "data", "@")

array = Split(secondstring, "@")

Could nest the Replace inside the Split to keep to one step.