CommonDialog.FileName innehåller sökväg plus filnamn. Hur får enbart jag filnamnet i en variabel?

Här har jag maskat bort allt fram till och med sista "\"
str = Right(CD.FileName, Len(CD.FileName) - InStrRev(CD.FileName, "\", , vbTextCompare))
Nettan

SUPERB!!

Jag tycker Mid$ funktionen är smidigare än Right:
str = Mid$(CD.FileName, InStrRev(CD.FileName, "\"))

Men med vb5 varianten passr Right bättre.
str = Right$(CD.FileName, Len(Dir(CD.FileName)))

Eller varför inte bara:
str = Dir(CD.FileName)