Split String

You don't need macro.

Here, try this:

Formula:

=TRIM(LEFT(SUBSTITUTE(A1,"$",REPT(" ",255)),255))