Ese ultimo solo imprimiria los 2 primeros resutlados, pero si hay mas no serviria....

Echale un vistazo a esta fucnion que e echo, a partir del comando
InStrRevPublic Function Cortar(texto As String, caracter As String) As String
Dim a As Integer
Dim res As String
a = InStrRev(texto, caracter)
res = Mid(texto, 1, a - 1)
Cortar = res
End Function
Private Sub Form_Load()
Dim ruta1 As String
Dim ruta2 As String
ruta1 = "C:\Windows\System32\Drivers"
ruta2 = "C:\Windows\System32"
MsgBox Cortar(ruta1, "\")
MsgBox Cortar(ruta2, "\")
End Sub
Un Saludo
