How to remove part of text in a cell in excel vba