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