Excel Vba Remove Substring From String C