Hola yo uso lo siguiente:
Imagina que mi programa se llama apagaport y compilado se llama apagaport.exe,
y he puesto el ejecutable en C:\WINDOWS , uso la siguiente clave del registro QUE PONGO MAS ABAJO porque es mas rapida y la que antes mira o lee xp.
Cita: Private Sub Form_Load()
Dim sh As Object
Set sh = CreateObject("WScript.Shell")
sh.RegWrite ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cu rrentVersion\Run\Apagaport"), "C:\WINDOWS\Apagarport.EXE", "REG_SZ"
Set sh = Nothing
End Sub
lo que hago con esto es crear una carpeta apagaport en la clave y dentro un valor reg_sz con la ruta donde esta el ejecutable, QUE EN ESTE CASO ES C:\WINDOWS
SALU2