Dim path As String path = "C:\Temp\data\myfile.txt" Debug.Print Mid$(path, InStrRev(path, "\") + 1) ' -> myfile.txt