Slette style-tags fra streng med html-kode

Inspireret af forskellige andre spørgsmål:

Function StripHTML(ByRef asHTML)
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "(<style[^<]+<\/style>)"
    StripHTML = regEx.Replace(asHTML, "")
    Set regEx = Nothing
End Function

Det virker - tryk svar :-D

Velbekomme '-)

-- og tak for point ;~}