Formulas to extract nth string with separators

[heathclif]

Appreciate any help from the experts here

In a cell, I may need to extract a string divided by separators. Sometimes I need the first, sometimes the second, sometimes the nth.


a1: red-orange-yellow-green-blue-indigo-violet


formula should return:


a2: red
a3: orange
a4: yellow
a5: green
a6: blue
a7: indigo


Help, pr favor!

 

[Michigan01]

Function MySplitter(InputString As String, WhatIsTheCharacter As String, WhatOcuurence As Integer) As String


Dim WrdArray() As String
On Error Resume Next
WrdArray = Split(InputString, WhatIsTheCharacter, 3)
MsgBox WrdArray(WhatOcuurence)


End Function