Dim nPos As Long
Dim sPath As String
 
sPath = Text1.Text
If Right$(sPath, 1) = "\" Then sPath = Left$(sPath, Len(sPath) - 1)
 
nPos = InStrRev(sPath, "\")
If nPos > 0 Then
  sPath = Mid$(sPath + nPos + 1)
Else
  sPath = ""
End If
 
MsgBox sPath