Questo va inserito o in un modulo (con la parola Public davanti a Declare) oppure in un form al di fuori di ogni sub (senza public ma con private):
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Il resto lo puoi mettere in un pulsante (come avevo fatto io)..
E dopo aver premuto il pulsante il file è copiato..

ciao