Excel Vba Remove First Character From String To Object