Remove regular expressions from HTML tags

' Module name: RemoveHTML
' Function: Remove HTML tags
' Enter value: HTML code
' Return value: string
Function RemoveHTML(ByVal strHTML)
Dim objRegExp, Match, Matches
set objRegExp = New RegExp
Dim str: str = strHTML
= True
= True
= "<.+?>"
str = (str, "")
Set objRegExp = Nothing
RemoveHTML = str
End Function