主题：请教！

    Dim s3 As String = "http://www.kuaidi100.com/applyurl?key=？？？？？？？&com=" & typeCom & "&nu=" & s2
    wbr.Navigate(s3)
    Do Until wbr.ReadyState = 4
        Application.DoEvents
    Loop
    Dim s As String = wbr.DocumentText
    Dim reg As System.Text.RegularExpressions.Regex
    Dim arr() As String
    arr = reg.split(s,"(<PRE>)|(</PRE>)")
    wbr.Navigate(arr(2))
    Do Until wbr.ReadyState = 4
        Application.DoEvents
    Loop
    Dim sg As String = wbr.Document.body.innertext
    messagebox.show(sg)

   '执行几次时会出现如图所示的错误，请教哪里有问题？

此主题相关图片如下：qq图片20131115190712.jpg