출처: http://snippets.dzone.com

Function stripTags(HTMLstring)
             Set RegularExpressionObject = New RegExp
            With RegularExpressionObject
                      .Pattern = "<[^>]+>"
                      .IgnoreCase = True
                      .Global = True
            End With
            stripTags = RegularExpressionObject.Replace(HTMLstring, "")
            Set RegularExpressionObject = nothing
End Function

+ Recent posts