Remove x characters from right of cell using Excel VBA