Excel Vba Remove Carriage Return From String To Object