Если вам нужно разрешить определенные теги HTML (как я делаю в моем текущем проекте), вы можете использовать регулярное выражение, чтобы разрешить только эти теги и никаких других, например:
set objRegExp = new RegExp
with objRegExp
.Pattern = "<^((b)|(i)|(em)|(strong)|(br))>.*</.*>"
.IgnoreCase = varIgnoreCase
.Global = True
end with
cleanString = objRegExp.replace(originalString, "")