Hola,
Mejor con expresiones regulares, asi te las quitas todas de un golpe. Por ejemplo:
cadena = "<P><STRONG>funcion</STRONG><BR>prueba de texto para la funcion.</P>"
Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "<[^>]*>"
cadena = regEx.Replace(cadena, "")
response.write (cadena)
Espero que te valga.
Saludos