Senza usare il controllo Ole puoi copiare l'eseguibile da una origine ad una destinazione in questo modo:

Private Sub Command1_click()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile "PercorsoOrigine\eseguibile.exe", "PercorsoDestinazione\eseguibile.exe", True
End Sub