Function ReplaceHtmlTag(HtmlContent)
Set re = New RegExp
re.Pattern = "<[^>]+>"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
ReplaceHtmlTag = re.Replace(HtmlContent,"")
End Function
Set re = New RegExp
re.Pattern = "<[^>]+>"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
ReplaceHtmlTag = re.Replace(HtmlContent,"")
End Function