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 

HOLA CHILDS, YA ME LEI CASI TODOS LOS POST Y ME PARECEN MUY INTERESANTES, PERO NECESITO AYUDA.

NECESITO ENVIAR UNOS PULSOS SEA POR EL LPT1 A DOS MOTORES QUE SE ENCARGAN DE ABRIR UNA PUERTA CADA UNO. NO SE EXACTAMENTE QUE NECESITO PARA HACER ESTO Y COMO DEBO HACER EL CODIGO, LO PIENSO HACER EN VB.

GRACIAS Y SIGAN ASI!!