急啊，webbrowser 报错

[xnt]

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
On Error Resume Next
j = j + 1
WebBrowser1.Navigate str1(j)
End If
End Sub

数组str()是从文本文件中读取的url地址,现在自动浏览过程中会出现浏览某个网页报 "内存为READ..错误."
我试着删除这个url地址,又可以继续下去.但过程中又会随机出现这个问题.

[summericeyl]

我感觉VB做的浏览器浏览很多网页都会报错，不是程序的问题