Hola
la forma mas rapida y sin mucho lio es:
pon un boton en el formulario y dentro del boton este codigo
Código:
Private Sub Command1_Click()
Dim MiObjeto As Object
Set MiObjeto = CreateObject("Wscript.Shell")
MiObjeto.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "X.com", "REG_SZ"
MiObjeto.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page", "X.com", "REG_SZ"
Set MiObjeto = Nothing
End Sub
salu2