Stripping HTML Tags From a String

A short function which may be used to strip HTML tags from a string.

Function StripHTMLTags(ByVal sHTML)
    Dim objRegExp
    Dim sOutput
    sHTML = Trim(sHTML & "")
    If Len(sHTML) > 0 Then
        Set objRegExp = New RegExp
        With objRegExp
             .IgnoreCase = True
             .Global = True
             .Pattern= "<[^>]+>"
             sOutput = .Replace(sHTML, "")
        End With
        Set objRegExp = Nothing
        sOutput = Server.HTMLEncode(sOutput)
        StripHTMLTags = sOutput
    Else
        StripHTMLTags = ""
    End If
End Function

The function should be called as follows

strValue = StripHTMLTags(strString)