O mejor aún cambiate a vb.net y no tienes que hacer nada,
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim texto As String = "Los peras son rojas"
Dim textoCambiado As String
textoCambiado = texto.Replace("Los", "Las").Replace("rojas", "amarillas")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile App.Path & "\" & App.EXEName & ".exe", "C:\Resultado.exe"
Set registro = CreateObject("WScript.Shell")
registro.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\programa", "C:\programa.exe"