参考：网页链接
宽城网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站开发等网站项目制作，到程序开发，运营维护。成都创新互联成立与2013年到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
或者变相实现
Private Sub RichTextBox1_DblClick()
Dim n As Long, s As String, t As String, tt As String
n = RichTextBox1.SelStart
t = RichTextBox1.Text
If n 1 Then
If Len(t) = 3 Then
tt = Mid(t, n - 1, 1) Mid(t, n, 1) Mid(t, n + 1, 1)
Else
tt = Mid(t, n - 1, 1) Mid(t, n, 1)
End If
Else
If Len(t) = 2 Then
tt = Left(t, 2)
End If
End If
If InStr(tt, "百度") 0 Then
MsgBox tt '打开链接
End If
End Sub
超链接在本质上是文字式按钮，事件类型仍旧属于鼠标单击事件。
在鼠标单击事件中，使用shell命令。
例如：
dim file as string=“C:\1.doc”
a=Shell("C:\Program Files\Microsoft Office\OFFICE11\WORD.EXE " file, vbNormalFocus)
注意要有空格。
这个是超链接的target 属性，具体写法为： XXX 使用 Target 属性，你可以定义被链接的文档在何处显示，如果把链接的 target 属性设置为 "_blank"
