Only way out is to use the string functions Left Right Mid & Len. Try using the paste function wizard and record a macro to see how it does it and then get the macro to put the formula in the spreadsheet. If the formula is to long the recorder won't record it all but if you change the col and rows to R1C1 in the options memo and copy the formula from the formula bar it can be pasted into a macro.
Anyway on the spreadsheet it'll be something like
=(mid(A1,len(A1)-6,len(A1)-1) Assume the first six characters are constant.
If you don't want to paste the function onto the spreadsheet experiment with the same functions in macro to see what you get, the formula won't be that much different in code.