Que tal compañeros...
Les dejo una función extremadamente simple, pero muy útil ( a mi me sirve :p ) Saludos...
Tomar Ruta y/o Archivo
Forma 1:

'////////////////////////////////////////////
'  Función: RxR_TomarR :--> Toma La Ruta    /
'  Función: RxR_TomarA :--> Toma El Archivo /
'    Autor: RoLyxRoLy                       /
'    Fecha: 4 Nov 2014                      /
'////////////////////////////////////////////

Public Function RxR_TomarR(mRutaArch As String)
Dim Pos As String
    Pos = InStrRev(mRutaArch, "\")
    RxR_TomarR = Left(mRutaArch, Pos)
End Function
Public Function RxR_TomarA(mRutaArch As String)
Dim Pos As String
    Pos = InStrRev(mRutaArch, "\")
    RxR_TomarA = Right(mRutaArch, Pos)
End Function

Private Sub Form_Load() 'Ejemplo de uso
MsgBox (RxR_TomarR("C:\Windows\Notepad.exe")) 'Muestra la Ruta
MsgBox (RxR_TomarA("C:\Windows\Notepad.exe")) 'Muestra el Archivo
End Sub

Forma 2:

'///////////////////////////////////
'  Función: RxR_Tomar              /
'Operación: Tomar Ruta y/o Archivo /
'    Autor: RoLyxRoLy              /
'    Fecha: 4 Nov 2014             /
'///////////////////////////////////
'Declaraciones Generales...
Dim mRuta As String 'Aquí guardo solo la Ruta...
Dim mArch As String 'Aquí guardo solo el Nombre del Archivo con extensión...
Public Function RxR_Tomar(mRutaArch As String)
Dim Pos As String
    Pos = InStrRev(mRutaArch, "\")
    mRuta = Left(mRutaArch, Pos)
    mArch = Right(mRutaArch, Pos)
End Function

Private Sub Form_Load() 'Ejemplo de uso
RxR_Tomar ("C:\Windows\Notepad.exe") 'Obligado a ejecutar la función...
MsgBox mRuta 'Muestra La Ruta
MsgBox mArch 'Muestra El Archivo
End Sub

PD: Busqué esta función y no la encontre, pero si existe (no la copié) :p

gracias RoLy muy buena.

Saludos

interessant voy estudiar talvez yo usaste en tools