Excel Vba Regex Extract Number