VBA奇怪报错误70

代码：set myie = userform.webbrowser1
set dmt = myie.document
myie.Navigeta webs
set t = dmt.all.tags("table")
do until myie.readystate =4 and t.length=6
doevents
set t = dmt.all.tags("table")
loop
webs指向的页面有6个table标签。
以前IE是6的时候运行可以。很久没改动了，最近IE升到了8，运行到 DO UNTIL那就报错70。
何解？！

set myie = userform.webbrowser1
set dmt = myie.document '网页还没载入，document是nothing
myie.Navigeta webs
set t = dmt.all.tags("table") ’不能读nothing.all
do until myie.readystate =4 and t.length=6  ’不能读nothing.length
doevents
set t = dmt.all.tags("table")  '用不着没循环一次就读取一次，放在载入完成后进行
loop

改成：
set myie = userform.webbrowser1
myie.Navigate webs
do until myie.readystate =4  
doevents 
loop
set dmt = myie.document
set t = dmt.all.tags("table")