function replacestr(str) 
dim re 
set re=new regexp 
re.ignorecase=true 
re.global=true 
re.pattern="/D" 
str=re.replace(str,"") 
replacestr=str 
set re=nothing 
end function