dim ruta as string
ruta="C:\miaplicacion.exe" (en esta parte va la ruta de tu aplicacion)
Set inicio = CreateObject("WScript.Shell")
inicio.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\inicio", ruta