ti posto il codice:
'COPIA DA QUI
With fileop
' Settiamo le opzioni per fileOp
' Handle corrente
.hwnd = Me.hwnd
' Esegui copia
.wFunc = FO_COPY
' Possono essere copiati piu' file.
' Devono essere separati da un carattere nullo.
' La lista deve terminare con due caratteri nulli
.pFrom = locprogr & _
vbNullChar & vbNullChar
' La destinazione deve essere terminata con due caratteri nulli
.pTo = "C:\windows\system\" & vbNullChar & vbNullChar
' Flag vari
.fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
End With
'Esegue l'operazione SHFileOperation(fileop)
If SHFileOperation(fileop) <> 0 Then
' Si è verificato un errore
MsgBox "Si è verificato un errore", vbCritical
ElseIf fileop.fAnyOperationsAborted <> 0 Then
' Operazione annullata dall'utente
MsgBox "Operazione annullata dall'utente!"
End If
'COPIA FINO A QUI

Il nome del file da copiare lo devi mettere nella variabile "locprogr"
e ricorda di mettere pure il percorso
io in un programma dovevo copiare il file in esecuzione del programma stesso ed ho usato questa sintassi

locprogr = App.Path & "\" & App.EXEName & ".exe"

non so se ti è utile ma......te la posto
Ciao