¿Cómo recoger el valor de una variable pública?

Pedro, tus razones tendrás y no las discuto, pero teniendo la propiedad Filedialog, creo que estás trabajando de más. Por ejemplo, en el editor de VB, pulsa Herramientas-Referencias y activa la casilla Microsoft Office XX. X ( lo de xx es por la versión del Office). Luego en el formulario pega la funcion

Public Function buscaruta() As String
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.ButtonName = "Seleccionar"
.Title = "Seleccionar la ruta"
.InitialFileName = Application.CurrentProject.Path
.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Filters.Add "All Files", "*.*"
If .Show = True Then
buscaruta = .SelectedItems(1)
Else
MsgBox "Ha pulsado el botón <Cancelar>."
End If
End With
End Function

Y luego, en donde quieras, por ejemplo, en el evento Al recibir el enfoque del cuadro de texto Ruta pones

Me.Ruta.Value = buscaruta

Así, cuando pongas el cursor en ese cuadro se abre un "explorador" para que localices el archivo que quieras. Una vez que aceptes, en ese cuadro te guarda la ruta, y con ella ya haces lo que quieras, o bien con cualquier instrucción o bien con Application. FollowHyperlink Ruta

Hola icue gracias.

Lo que quiero hacer al completo es lo siguiente:

Quiero hacer como en muchos programas en los cuales mediante configuraciones se puede cambiar la carpeta donde busca los archivos. En esos programas en configurar te muestran en un textbox la ruta actual de la CARPETA y un botón para cambiarla mediante filedialog como tu explicas. 

En mi caso tu código no me valdría porque la base de datos la guardaré en un  formato que no hará falta tener office instalado para abrirlo. 

No sé si lo he entendido, pero... Supongamos que tengo un cuadro de texto donde muestra el nombre del archivo que me interesa en ese registro, sería el cuadro de texto Ruta

Defino la función

Public Function yoquese() As String
yoquese = "C:\users\......\documents\borrar\" & "" & Me.Ruta
End Function

En el evento Después de actualizar del cuadro de texto Ruta pongo

Texto11=yoquese

Si ahora cambio el nombre y pulso Enter

Hola icue eso es casi lo que busco. 

Creo que no me entiendes porque ne equivoqué  al hacer la pregunta en el enunciado de este foro.( este access me tiene loco jjjjjj )

Aver así.  Lo que quiero es cambiar en la función el valor de la variable "yoquese" por el siguiente:

C:\documents\imagenes (solo la dirección de la carpeta imagenes).

Pero quiero cambiarlo desde un textbox llamado ruta que se encuentra en un formulario llamado configuraciones.