VB中用正则去掉HTML代码中的所有链接

这个函数对付常见的<a>标签应该够用了
Private Sub Command1_Click()
MsgBox test(Text1.Text)
End Sub

Function test(myString As String)
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As MatchCollection
Dim RetStr As String
Set objRegExp = New RegExp
objRegExp.Pattern = "<a\s+[^>]+>(.+?)</a>"
objRegExp.IgnoreCase = True
objRegExp.Global = True
If (objRegExp.test(myString) = True) Then
RetStr = objRegExp.Replace(myString, "$1")
test = RetStr
Else
Exit Function
End If
End Function