Access - Path relativo en access

hola,
tengo una pequeña duda, y es como coger el path relativo de un objeto pasado en el formato FileDialog.

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
Dim fields(), lastValor() As Variant

With fd
.Title = "Selecciona la foto de la noticia ..."
.Filters.Clear
.Filters.Add "Imagen JPEG (*.jpg)", "*.JPG"
.Filters.Add "Imagen GIF (*.gif)", "*.GIF"
.Filters.Add "Mapa de Bits BMP (*.bmp)", "*.BMP"
.Filters.Add "Imagen TIIF (*.tif)", "*.TIF"
.Filters.Add "Todos los Ficheros", "*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
MsgBox "The path is: " & vrtSelectedItem
Foto.Value = vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With

tengo una cosa asi, el caso que lo que me muestra es toda la ruta
c:\Carpeta Temporal\Ejemplo.gif
y yo quiero que sea solo:
Ejemplo.gif

Gracias de antemano

Segun me ha parecido ver, en la variable vrtSelectedItem obtienes la Ruta completa incluido el Archivo Gif, en ese caso declaras una nueva variable:

Dim SoloArchivo As String
SoloArchivo = Mid(Dir(vrtSelectedItem), 1, Len(Dir(vrtSelectedItem)))

Esta línea debes de ponerla DESPUES de que la variable "vtrSelectedItem" haya tomado el valor de la Ruta completa, y si todo va como debe, en la nueva variable "SoloArchivo" obtendras únicamente el nombre del archivo y su extensión sin la Ruta.

Esto otro posiblemente no lo necesites en esta ocasión, pero te daría la Ruta completa SIN el Archivo, extrayéndola igualmente de la variable "vtrSelectedItem":
Dim SoloRuta As String
SoloRuta = Mid(vrtSelectedItem, 1, Len(vrtSelectedItem) - Len(Dir(vrtSelectedItem)) - 1)

Y esto te daría solo la extensión:
Dim SoloExtension As String
SoloExtension = Right(vtrSelectedItem, 3)

Un saludo
Enrique