madonna che giri... vi siete dimenticati che meno si scrive e meglio e'?

basta una istruzione una

codice:
Dim a as string, b as string

a = "C:\l'esempio che vuoi\file.est"
b = Left(a, InStrRev(a, "\"))