Private Sub Command1_Click() strurl = txtURLbox.Text If Len(strurl) > 11 Then txtNOTE.Text = Inet1.OpenURL(strurl) Else MsgBox "输入的是错误的网址！！" End If End Sub