Separate multiple entries in cell to individual cells

Anybody have a macro that can either (1) delete a word (in this case Total) from a cell or (2) separate the number from the word total and put them in separate cells. Item (2) is more desirable as I can use this to separate components in a cell.

42357310130000 Total

Thanks,

Jim15