Excel Vba Remove First Character From String To Int