Extraction du nom de fichier à partir d'une chaîne de caractère

Bonjour au Forum,

Comment je peux faire pour récupérer le nom du fichier excel ouvert sachant que la variable TheFile donne le chemin complet + le nom de fichier sous la forme: "c:\Mes Documents\administratif\Exemple.xls" et que ce chemin est différent à chaque fois.
y a-t-il une astuce pour obtenir le nom du fichier directement??

____________________________________________________________

ThePath = "R:\BE\A-O\"
UserDir = CurDir
ChDir ThePath
TheFile = Application.GetOpenFilename("Excel Files(*.xls),*.xls")
If TheFile = False Then
ChDir UserDir
Exit Sub
End If


Set WB = Workbooks.Open(TheFile)
ChDir UserDir

___________________________________________________