Uso de InitialFileName

Buenos días.

Estoy utilizando en Access 2007 la función para guardar un hipervínculo a un fichero. La función es:

Public Function FicheroInforme() As String
<em style="font-size: 14px; line-height: 1.5em;">Dim fDialog As Office.FileDialog
<em style="font-size: 14px; line-height: 1.5em;">Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.ButtonName = "Seleccionar"
.Title = "Seleccionar el fichero"
.InitialFileName = "D:\Basedatos\"
<em style="font-size: 14px; line-height: 1.5em;">.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Filters.Add "All Files", "*.*"
.Filters.Add "Ficheros Pdf", "*.pdf"
If .Show = True Then
FicheroInforme = .SelectedItems(1)
Else
MsgBox "Ha pulsado el botón ."
End If
End With
End Function

La función la llamo desde un formulario con un botón y:

Private Sub Busca_informe_Click()
Me.InfoDeriv.Value = FicheroInforme()
End Sub

Creo que esto es lo habitual y funciona perfectamente.

Pero resulta que pretendo que al abrir el cuadro del explorador para seleccionar el archivo, vaya a un path que tengo en otro campo en el mismo formulario, ese campo se llama Enlace.

He intentado sustituir el valor de InitialFileName por esto:

InitialFileName = Me.Enlace & "\" y el botón simplemente no funciona.

Después lo he intentado definiendo una variable y tampoco:

Public Function FicheroInforme() As String
Dim Inifilename As String
Set Inifilename = Me.Enlace & "\"
'
Dim fDialog As Office.FileDialog
<em style="font-size: 14px; line-height: 1.5em;">Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.ButtonName = "Seleccionar"
.Title = "Seleccionar el fichero"
.InitialFileName = Inifilename

¿Cómo podría hacerlo?. Muchas gracias de antemano.