Dim TempString As String, FileName As String
Dim FullPath As String = "C:\My Folder\My File.txt"
TempString = StrReverse(FullPath) Returns "txt.eliF yM\redloF yM\:C"
TempString = Split(TempString, "\")(0) Returns "txt.eliF yM"
FileName = StrReverse(TempString) Returns "My File.txt"