function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\.[^\]*\&;)" str=re.replace(str," ") re.Pattern="(\\/[^\]*\&;)" str=re.replace(str," ") str=replace(str,"nbsp;","") str=replace(str," ","") nohtml=str set re=nothing end function