Recortar un texto

[culd]

Te hise una funcion que le envias la ruta y te devuelve solamente el nombre del archivo...

Código:

Public Function Nombre_Archivo(Ruta As String)
Dim X As Integer
Dim Hasta As Integer

'Recorro de atras para adelante
For X = Len(Ruta) To 1 Step -1
    'separo caracter por caracter, hasta encontrar la marca que seria el \
    If Mid(Ruta, X, 1) = "\" Then
        'como encontre esa marca, significa que ya termino el nombre del archivo
        'entonces resto el largo total de toda la ruta, menosla posicion en la que encontre
        'ese resultado es el largo del nombre del archivo
        Hasta = Len(Ruta) - X
        Exit For
    End If
Next X

'separo de derecha a izquierda la cantidad de caracteres que corresponde al nombre del archivo
Nombre_Archivo = Right(Ruta, Hasta)
End Function