Set xh = CreateObject("MSXML2.XMLHTTP")
On Error Resume Next
If Err <> 0 Then
Err.Clear
　　Set xh = CreateObject("Microsoft.XMLHTTP")
End If
xh.Open "GET", Url, False
xh.Send
If Err <> 0 Then Exit Function

上記Scriptでxh.Sendを実行してから次のステップに進むまで4秒くらい（URLはyahooやInfoseekなどどのサイトでも）
かかりますがみなさんもそのくらい、時間がかかりますか？

OSはWinXPです。