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," ","")
       str=replace(str," ","")
       nohtml=str 
       set re=nothing 
end function