I use something like this
Code:
Function fGetElement(strIN As String, strSeparator As String, Optional intSegment As Integer = 0) As String
'intSegment is 0 based reading right to left
Dim var As Variant, i As Integer
If Right(Trim(strIN), 1) = strSeparator Then strIN = Left(strIN, Len(strIN) - 1)
var = Split(strIN, strSeparator)
i = UBound(var)
fGetElement = var(i - intSegment)
End Function
Code:
?fGetElement("C:\data\folder\text\file\document_xlsx\","\")
document_xlsx
?fGetElement("C:\data\folder\text\file\document_xlsx\","\",1)
file
?fGetElement("C:\data\folder\text\file\document_xlsx\","\",2)
text