Excel VBA Extractar el nombre del archivo

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