Function stripHTMLtags(HTMLstring)
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = “<[^>]+>”
.IgnoreCase = True
.Global = True
End With
stripHTMLtags = RegularExpressionObject.Replace(HTMLstring, “”)
Set RegularExpressionObject = nothing
End Function
0 Responses
Stay in touch with the conversation, subscribe to the RSS feed for comments on this post.