Excel: Split function wrapper

Option Explicit

Function SplitString(target, delimitor, nth)

'   Returns the nth delimited element from a string,
    Dim x As Variant
    x = Split(target, delimitor)
    If nth > 0 And nth - 1 <= UBound(x) Then
       SplitString = x(nth - 1)
    Else
        SplitString = ""
    End If
End Function