Hola
Además de lo que te dice tammander, este otro funciona sin necesidad de los replace
Código PHP:
Function LimpiarTags(texto)
Dim objRegExp
Set objRegExp= New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "[<](/)*[b|i|u][>]"
texto = objRegExp.Replace(texto, " ")
objRegExp.Pattern = "[<][^>]*[^br|ol|li|ul][>]|[\[][^\]]*[\]]"
texto = objRegExp.Replace(texto, " ")
Set objRegExp = Nothing
LimpiarTags = texto
End Function
Suerte