Excel Vba Extract Part Of String R