Solved: part of Dir string vba

[thmh]

hy
trying to get part of Dir string , last folder name

example:

string = D:\Data\DirTest\test.xlsx

new string= "DirTest"

[Kenneth Hobs]

Sub t()
Dim fName As String, s() As String
fName = "D:\Data\DirTest\test.xlsx"
s() = Split(fName, "\")
ReDim Preserve s(0 To (UBound(s) - 1))
MsgBox s(UBound(s))
End Sub