String to Array

[mnrvovrfc]

Nice routine but why need an array at all for delimeters?

Could replace

Code: (Select All)

If Mid$(ST, c, 1) = Delim(i) Then

with

Code: (Select All)

If Mid$(ST, c, 1) = Mid$(DL, i, 1) Then

Your way would be better if the "delimeter" is allowed to be more than one character.