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