Hjælp til regular expressions

Hej eksperter,

Jeg skal bruge en regular expression der kan erstatte alle forekomster af html-tags, undtagen <p> og </p>, fra en tekst.

I øjeblikket har jeg:
Function stripHTML(strHTML)
  Dim objRegExp, strOutput
  Set objRegExp = New Regexp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.|\n)+?>"
     
  strOutput = objRegExp.Replace(strHTML, "")
End Function

Men denne erstatter alle html-tags, og det skal den jo ikke.

Nogen der kan hjælpe mig?