Excel Vba Remove Substring C