Haber, intenta de esta manera:
Dim regedit As Object
Set regedit = CreateObject("Wscript.Shell")
regedit.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Nombre_Del_Dato", "Ubicacion_De_La_Aplicacion", "REG_SZ"
salu2
Dim regedit As Object
Set regedit = CreateObject("Wscript.Shell")
regedit.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Nombre_Del_Dato", "Ubicacion_De_La_Aplicacion", "REG_SZ"
salu2