Macro on Excel 2007 – processing text strings

Good day!
Need macro for Excel (using Excel 2007) to convert the string.

Example.
Original data:
001 Drapes -car-car -PVC
002 curtains -AutoTest -PVC
Need to get:
001 auto