ok...
con "Me.CommonDialog_Phto.FileName" ottieni percorso e nome file.
Se vuoi ottenere solo il nome del file usa "Me.CommonDialog_Phto.FileTitle".

Quindi...
codice:
SourceFile = Me.CommonDialog_Phto.FileName
DestinationFile = App.Path & "\" & Me.CommonDialog_Phto.FileTitle
FileCopy SourceFile, DestinationFile