Thanks OriginalGriff, for guide me to right way
i have done it myself
Function DumpHRefs(ByVal inputString As String) As String
Dim HRefPattern As String = "href\s*=\s*(?:""(?<1>[^""]*)""|(?<1>\S+))"
Dim r3 As New Regex(HRefPattern, RegexOptions.IgnoreCase)
inputString = r3.Replace(inputString, AddressOf smily_replace)
Return inputString
End Function
Function smily_replace(ByVal newstr As Match) As String
Dim x As String = newstr.ToString()
For Each word In arrString
If x.Contains(word) Then x = x.Replace(word, "")
Next
Return x
End Function