Question sur le rapatriement d'une chaîne de caractères

Bonjour,

J'ai une fonction qui rapatrie le nom d'un fichier dans une zone
nommée NomPhoto pour afficher une photo dans un cadre indépendant.
J'ouvre le répertoire du fichier à choisir grâce à la fonction
ChoixDuFichier

Private Sub NomPhoto_Click()
Fichier_Provisoire = ChoixDuFichier
' Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) -
25)
If Fichier_Provisoire <> "" Then
Me.NomPhoto = Fichier_Provisoire
End if
End sub

Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function

Par exemple, en cliquant sur la zone NomPhoto, j'atterris dans le
répertoire C:\Mes documents\Perso\V\ et si je choisis le fichier
photo1.jpg (en double cliquant dessus 1 fois), alors j'aurai

C:\Mes documents\Perso\V\photo1.jpg

Je souhaite ne récupérer que le nom du fichier et pas son
emplacement+nomfichier sur le disque dur, c'est à dire dans ce cas là
tout ce qui est après le 25ème caractère.
Il me suffit normalement d'utiliser une fonction Right comme je l'ai
mis. Ca marche sauf que étant donné que je dois à chaque fois calculer
à quel point je dois partir pour avoir le nom du fichier en entier, si
je choisis de prendre
Fichier_Provisoire = Right(ChoixDuFichier, Len(ChoixDuFichier) - 25) ,
je suis obligé de double cliquer 2 fois (à cause du calcul de
len(ChoixDuFichier) apparemment).

Je me pose la question s'il est faisable de n'avoir qu'une seule fois
à cliquer pour obtenir le nom du fichier seul.

D'avance, merci pour vos réponses ou suggestions.