function filteJapanese(sStr)
        dim oRegExp  
        set oRegExp = new RegExp     
        oRegExp.global = true        
        oRegExp.pattern = "[\u3040-\u309F|\u30A0-\u30FF]"
        filteJapanese = oRegExp.replace(sStr,"")
        set oRegExp = nothing
end function