olaa a todos,yo ice algo parecio espero que os pueda servir

ponemos:
-1text(mi aplicacion)
 2text(c:\windows\archivo.exe)
-1command(agregar exe)
codigo:
Private Sub Command1_Click()
 Dim El_Objeto As Object
 Set El_Objeto = CreateObject("WScript.Shell")
 
 El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & Text1, Text2
 
 Set El_Objeto = Nothing
 
 MsgBox "Listo"
End Sub