Private Sub cmdBuscaArchivo_Click()
    cdDialogo.ShowOpen

    If cdDialogo.FileName <> "" Then
        'imgFoto.Picture = LoadPicture(cdDialogo.FileName)
        txtRuta.Text = cdDialogo.FileName
    End If
End Sub

Private Sub cmdCopia_Click()
    CopyFile txtRuta.Text, App.Path & "\Archivos\" & cdDialogo.FileTitle
End Sub

Public Sub CopyFile(StartPath As String, EndPath As String)
    On Error GoTo error
    FileCopy StartPath$, EndPath$
Exit Sub
error:      MsgBox Err.Description, vbExclamation, "Error"
End Sub

Public Sub ExecuteFile(FilePath As String)
On Error GoTo error
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath))
Exit Sub
error:      MsgBox Err.Description, vbExclamation, "Error"
End Sub

Pienso primero luego programo