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

书上的例子
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