Visual Basic - EXTRAER RUTAS Y NOMBRE DE ARCHIVOS

Hola a todos,

hay alguna función que a partir de una UNC o Path me extraiga la ruta y el nombre de archivo.

C:\Mis Documentos\Pepito.txt, nesito extraer:
- Por un lado RUTA: C:\Mis Documentos
- Por otro lado ARCHIVO: Pepito.txt

Gracias a todos.

Salvo que exista alguna otra funcion puedes probar con esto:

mcadena = Trim(Text1.Text)
For i = 1 To Len(mcadena)
wpos = InStr( i , mcadena, " \ " )
If wpos = 0 Then
wpos = i
ruta = Mid(mcadena, 1, wpos - 1)
archivo = Mid(mcadena, wpos)
Exit For
End If
Next