Código:
Private Sub s4_Click()
Dim ruta As String
Dim destino As String
ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.Elf"
destino = Dir1.Path & s4.Name
FileCopy ruta, destino
End Sub
pues yo creo que donde tienes s4.name cambiarlo por el nombre k kieras .name no?
saludos