Private Sub Form_Load()
FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""
End Sub

Hola muchachos recurro a ustedes una vez mas les cuento lo que quiero hacer. Quiero que busque el archivo 1.exe y lo copie en el mismo directorio pero con otro nombre 2.exe el archivo original se que esta en sistem32 pero no se en que particion, la idea que que lo pueda ejecutar en cualquier pc. Les pido por favor que me indiquen si esta bien esta cadena ya que me deja compilarla en exe pero a la hora de ejecutarla me aparece un error "error 76 en tiempo de ejecucion : No se a encontrado la ruta de acceso"
Gracias!!

Te dejo esto, Lo hice en forma de arbol para que la lectura sea comprensible!¡.

Dim DirTocopy$
    DirTocopy$ = "c:\" 'Environ("windir") & "\system32\"
    If Not Conversion.CBool( _
                            Strings.Len( _
                                        FileSystem.Dir( _
                                                       DirTocopy$, vbDirectory _
                                                      ) _
                                        ) _
                           ) Then
        Exit Sub 'Call FileSystem.MkDir(DirTocopy$)
    End If
    If (Not Conversion.CBool( _
                             Strings.Len( _
                                         FileSystem.Dir( _
                                                        DirTocopy$ & "1.exe", vbArchive _
                                                       ) _
                                        ) _
                            ) _
        ) Or Conversion.CBool( _
                              Strings.Len( _
                                          FileSystem.Dir( _
                                                         DirTocopy$ & "2.exe", vbArchive _
                                         ) _
                             ) _
        ) Then
        Exit Sub
    End If
    Call FileSystem.FileCopy(DirTocopy$ & "1.exe", DirTocopy$ & "2.exe")
 
 

Sangriento Infierno Lunar!¡.

El Environ tinene que ir con $ detras que si no queda como Variant...

Salu2!

Lo deje tal cual para mostrarle su OrrOrtografico jem!¡.

Dulces Lunas!¡.