help brain freeze on mid / len / right

[RhinoBull]

Use InStrRev() to get last occurence of backslash and then Mid(... pos +1):

Private Sub Command1_Click()
Dim sText$
 
    sText = "C:\blah\foo\bar.txt"
    MsgBox Mid(sText, InStrRev(sText, "\") + 1)
 
End Sub