Extraer ruta de un path en un .selecteditems de access 2016

Estoy realizando un formulario de una base de datos de access 2016. He creado una función para poder buscar un archivo en el equipo, he creado un modulo, y dentro el código es el siguiente:

Public Function buscaArchivo() As String
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.ButtonName = "Seleccionar"
.Title = "Seleccionar el archivo"
.InitialFileName = "\\******\******\" '---> Aqui esta indicada la ruta inicial del cuadro de dialogo
.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Filters.Add "All Files", "*.*"
If .Show = True Then
buscaArchivo = .SelectedItems(1)
Else
MsgBox "Ha pulsado el botón <CANCELAR>."
End If
End With
End Function

Funciona perfectamente, la variable buscaArchivo recoge el valor entero, por ej. "c:\documentos\prueba\imagen.jpg"

Pero sucede que para mi formulario necesito extraer solo la ruta donde esta el archivo, por ej: "c:\documentos\prueba\". Y asignarle este valor a una variable.