Visual Basic para Aplicaciones - Copiar Foto Activa A Carpeta

Compañeros(as)

Les cuento que aun continu con el problema de copiar la foto a una carpeta:

Tengo dos variables DestinoFoto y RutaFoto, para el caso de la primera variable la linea de codigo (DestinoFoto)

DestinoFoto = App.Path & "\Socios"

y para el caso de la segunda la saco del cuadro de dialogo:

RutaFoto = CommonDialog1.FileName

hasta ahora todo bien pero cuando hago esto para copiar a la foto
FileCopy RutaFoto, DestinoFoto

me arroja un error 78 algo que esta mal la ruta, y esta todo bien yo supongo y segun lo que he investigado es porque tengo la foto cargada en el formulario y se esta ocupando.

ENTONCES como hago para copiar la foto encontre una funcion en internet que se supone que lo hace:

Private Function Copiar(ByVal RutaFoto As String, ByVal DestinoFoto As String) As Boolean
Dim intO As Integer, intD As Integer, byt1() As Byte
On Error GoTo Error_Copiar
intO = FreeFile
Open RutaFoto For Binary As #intO
' En el caso de que el fichero no fuera muy grande.
ReDim byt1(1 To LOF(intO))
'Si el fichero es demasiado grande, deberás implementar un buffer dimensionando 'byt1' al tamaño que tu veas y haciendo un bucle hasta que llegues a la longitud del fichero.
intD = FreeFile
Open DestinoFoto For Binary As #intD
Get #intO, , byt1
Put #intD, , byt1
Copiar = True
Salir_Copiar:
On Error Resume Next
Close #intO
Close #intD
Exit Function
Error_Copiar:
MsgBox Err.Description
Resume Salir_Copiar
End Function

pero me arroja el mismo error: Error de acceso a ruta o archivo ......es el mismo error que aparece cuando hago el filecopy

Espero haberme explicado bien ya que me esta desesperando no poder solucionar esto si algunos de ustedes tenga algun codigo, alguna idea, o un ejemplo de copiar una foto a una carpeta, pero con la foto mostrandola osea ocupandola activa.

De antemano se agradece

Saludos desde Viña del, Mar CHILE