Estrarre stringa da sinistra fino a ultimo carattere "\"

Ciao a tutti
sulla colonna A ho elencati i percorsi di vari file (es. C:\cartella1\cartella2\...\cartellaN\nomefile)
Per estrarre il nomefile utilizzo la funzione:

Public Function fTrovanome(ByVal strPath As String) As String

    Dim intStart As Integer
    Dim intEnd As Integer
   
    intStart = InStrRev(strPath, "\") + 1
    intEnd = InStrRev(strPath, ".")
   
    fTrovanome = Mid(strPath, intStart, intEnd - intStart)

End Function

ed inserendo sulla cella della colonna B il codice: fTrovanome(A1), mi viene restituito il nomefile

Vorrei fare lo stesso, ma al contrario, ossia fTrovapercorso(A1), in modo che mi venga restituito C:\cartella1\cartella2\...\cartellaN\ , ma non riesco a modificare correttamente la funzione.
Potete darmi una mano?
Grazie

Prova da solo è molto semplice. Nella stessa funzione il valore di intStart è quello finale della stringa da restituire a partire dal primo carattere... usa la Left

Originariamente inviato da AntonioG

Prova da solo è molto semplice. Nella stessa funzione il valore di intStart è quello finale della stringa da restituire a partire dal primo carattere... usa la Left

Il Left era quello che già stavo provando! ...se però mi mettevi un .."setfocus" sul MID ... ci arrivavo prima!

Dim intStart As Integer
   
   intStart = InStrRev(strPath, "\")
   fTrovapercorso = Left(strPath, intStart)

Grazie cmq

Non capisco quello che hai scritto sul Mid ma importante che ci sei arrivato da solo

P.S. la variabile era meglio chiamarla intEnd