How to split a string with multiple delimiters in vba excel?

Question

I want to split a string with multiple delimiters using Excel VBA. One of the strings is:

d1-d2 d3 d4  

We have a dash and a space as tw

Answer 1

To split with several different delimiters ; list the delimiters in an array, replace them with a for loop, then split :

For Each tSep In Array(";", " ", ".", "<==", ":", vbCr)
    val1 = Replace(val1, tSép, "°")
Next tSep
tab1 = Split(val1, "°")