> なあ(;´Д`)このｽｸﾘﾌﾟﾄﾝ何？
>  myPAGE = "http://www.cosp.jp/prof.aspx?id=18777"
>  Set myIE = CreateObject("InternetExplorer.application")
>  myIE.Visible = False
> 
> For I = 1 To 100000 Step 1
>  myIE.Navigate myPAGE
>  mySTOP(myIE) '読み込むまで待つ
>  I = I - 1
> Next
> Sub mySTOP(myIE)
>     Do 
>       If myIE.Busy = False Then Exit Do
>     Loop
>     Do 
>       If myIE.Document.readyState = "complete" Then Exit Do
>     Loop
> End Sub

いくら無能でもForぐらいは理解しておかないと
大変なことになるよ

参考：2010/05/05(水)09時57分55秒