Excel Vba Regex Extract String R