Macro: Copy A Word From A Column To Another Automatically

On the data sheet I attached you can see easily what I am trying to do:

The macro should do something like this basically:

Column A there is a entry like "L110E (CST_PRG-Wheel Loaders-E series models)"

Lets say we have 10.000 entries more or less like this.

Macro should do this:
* Take first word for example in this case "L110E" and copy into column D same row.
* Take second word's second part in this case only "PRG" and copy into column B same row.
* Take the 3rd word between - - in this case only "Wheel Loaders" and copy into column C.