Excel Vba Extract String Between Two Characters Wearing