Vba Extract String From String To Object