在线结帖.诸位大侠,下面这个代码该怎么改啊

[steve_shun]

书上的例子
Dim strUrl As String
Private Sub Command1_Click()
On Error GoTo errorhandler
strUrl = txtURLbox.Text
'检查URL地址是否至少有11个字符("http://www.")
If Len(strUrl) > 11 Then
'把HTML文档复制到文本框中
txtNote.Text = Inet1.OpenURL(strUrl)
Else
MsgBox "Enter valid document name in the URL box"
End If
Exit Suberrorhandler:<<<<<<<<<<<<<<此处显示红色
MsgBox "Error opening URL", , Err.Description
End Sub

End Sub

[strongfisher]

Exit Suberrorhandler:<<<<<<<<<<<<<<此处显示红色
改为
Exit Sub
errorhandler：

[strongfisher]

Exit Suberrorhandler:<<<<<<<<<<<<<<此处显示红色
改为
Exit Sub
errorhandler：

[射天狼]

同意楼上~~~

[steve_shun]

strongfisher(Haiwolf)大侠,按照您的指点编译通过了,您接分,谢谢啊.