Skifte Proxy indstillinger i IE

ok.. Jeg skal skifte proxy indstillinger på IE, sådan så at når min WebBrowser besøger et sted så har den fået en anden ip.. Jeg bruger en timer funktion, og hvergang timeren løber ud, besøger den en side, ændre proxy indstillingerne og starter forfra..

Jeg bruger koden som ses nedenfor til at ændre proxy indstillingerne med, syntes også den virker, men kun sådan en ud af 15 gange eller sådan.. Hvad er der galt, skal den bruge lang tid til det eller hvad?

Private Sub Timer1_Timer()


Dim Proxy As String
Dim Key
Dim Key2

Const ProxyServer = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
Const ProxyEnable = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"

Key2 = Proxy

Set Create = CreateObject("wscript.shell")

Key = ProxyEnable
Create.RegWrite Key, 1, "REG_DWORD"

Key = ProxyServer
Create.RegWrite Key, Key2, "REG_SZ"

End Sub