Como extraer tags HTML usando expresiones regulares

Cómo utilizar la función

<%
str_html = "<a href=""target.htm"">ENLACE Y CODIGO HTML</a>"
stripped_text = stripHTML(str_html)
response.write stripped_text
%>

ENLACE Y CODIGO HTML

Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")

'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "&lt;")
strOutput = Replace(strOutput, ">", "&gt;")

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
response.write stripHTML
End Function