Excel: Split a string by a delimiter

str_split.vb

Function STR_SPLIT(str, sep, n) As String
    Dim V() As String
    V = Split(str, sep)
    If (n < 0) Then
        STR_SPLIT = V(UBound(V) + 1 + n)
    Else
        STR_SPLIT = V(n - 1)
    End If
    
End Function


Sub Test()
    Dim val As String
    
    MsgBox (STR_SPLIT("aaaa/bbbbb/ccccc/ddddd/eeeeee", "/", 1))
    MsgBox (STR_SPLIT("aaaa/bbbbb/ccccc/ddddd/eeeeee", "/", 4))
    MsgBox (STR_SPLIT("aaaa/bbbbb/ccccc/ddddd/eeeeee", "/", -1))
End Sub