Использование функции Split для поиска последней папки в пути файла только с одной строкой

У меня есть функция, которая выглядит

Dim arrFold() As String Dim lastFold As String arrFold = Split(filePath, "\") lastFold = arrFold(ubound(arrFold)) 

Я ищу способ упростить это, просто найдя последний элемент в первой строке, вместо того, чтобы сначала определять массив, что можно сделать, чтобы не добавлять это в память?

 debug.print mid(filePath, instrrev(filePath, chr(92))+1) debug.print trim(right(replace(filePath, chr(92), space(999)), 999)) 

 Sub findLast() Dim myString As String myString = "\File\lesser\evenless\least" MsgBox InStrRev(myString, "\") End Sub