Visual Basic - Filecopy sin sobreescribir archivo

Hola a todos.

Tengo un problema con la instrucción Filecopy.
Necesito copiar un archivo a otro directorio, pero antes quiero que compruebe que no existe un archivo con el mismo nombre, para que no lo machaque.
Este código funciona, pero no me avisa si existe un archivo con el mismo nombre en el directorio de destino.

If Trim(CommonDialog1.FileName) <> "" Then
Destino = App.Path & "\Fotografias\" & CommonDialog1.FileTitle
strImagen = Trim(CommonDialog1.FileTitle)

'Algo falla aquí
If CommonDialog1.FileName = Destino Then
Exit Sub
End If

FileCopy CommonDialog1.FileName, Destino
MsgBox "Fotografía copiada "
Image1.Picture = LoadPicture(App.Path & "\Fotografias\" & strImagen)
TxtInventa(9) = CommonDialog1.FileTitle
End If

Un saludo. Luis

La instrucción FileCopy no tiene parámetros opcionales para sobreescribir archivos o no, eso es en CopyFile de FileSystemObject. FileCopy los sobreescribe directamente.
Para saber si existe el archivo antes de sobreescribirlo, debés usar la función Dir

If Dir("c:\Autoexec.Bat") <> "" Then
Debug.Print "existe "
Else
Debug.Print "No existe"
End If