Excel Vba Extract Part Of String Rope