Excel Vba Extract Number From String