Function GetSplit(inputString As String, separator As String, number As Integer)
    Dim strings() As String
    Dim length As Integer
    strings = Split(inputString, separator)
    length = UBound(strings) - LBound(strings) + 1
    If number > 0 Then
        If (number > length) Then
            'GetSplit = strings(length - 1)
            GetSplit = ""
        Else
            GetSplit = strings(number - 1)
        End If
    ElseIf number < 0 Then
        If (length + number) < 0 Then
            'GetSplit = strings(0)
            GetSplit = ""
        Else
            GetSplit = strings(length + number)
        End If
    Else
        GetSplit = inputString
    End If
End Function​