Llamada a path mediante botón en formulario

Antes de nada debo dejar claro que no tengo conocimiento alguno de Visual basic, a pesar de que con el tiempo y vuestra ayuda podré mejorar.
Mi objetivo es colocar un botón en un formulario de una base de datos Access XP que abra una ventana del explorer y que me permita seleccionar un path completo. Cuando le de a "abrir", el path seleccionado debe alimentar un campo de texto de una tabla ubidad en la misama base de datos i mostrarse en un campo de texto del mismo formulario.
Investigando por allí, he logrado insertar este pedacito de código que me permite abrir una ventana del explorer i seleccionar un path, pero a partir de aquí ya no se que más hacer. Este es el código:
Function setDialeg()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Title = "Selecciona la imatge"
.InitialFileName = "c:\winnt"
.InitialView = msoFileDialogViewPreview
.Filters.Add "Imatge JPEG (*.jpg)", "*.jpg"
.Filters.Add "Imatges GIF (*.gif)", "*.gif"
.Filters.Add "Mapes de Bits (*.bmp)", "*.bmp"
.Filters.Add "Imatges TIFF (*.tif)", "*.tif"
.Filters.Add "Photoshop (*.psd)", "*.psd"
.Filters.Add "Format EPS (*.eps)", "*.eps"
.Filters.Add "Qualsevol arxiu (*.*)", "*.*"
.AllowMultiSelect = False
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
GethPath = vrtSelectedItem
Next vrtSelectedItem
Else
GetPath = "Cancel"
End If
End With
Set fd = Nothing
End Function
_______________________________
Gracias por anticipado.
Manuel Diaz
P.S.: por cierto, a esta función la llamo desde un botón seleccionando su propiedad "Al hacer clic" y escribiendo =SetDialeg();no se si hay un método mejor.