navigando su internet ho trovato questo.

Non riesco però a capire come fare per raccogliere i tag rimossi in un array.

public function stripTags(txt)

Set objRE = CreateObject("VBScript.RegExp")
objRE.Pattern = "\<[^\>]*\>"
objRE.Global = true
objRE.IgnoreCase = true
stripTags = objRE.Replace(txt,"")

end function

strText = "Questo contiene Tag HTML e contenuto Testuale"

Response.Write(stripTags(strText))

qualcuno può darmi un aiuto?