Text to Columns, but macro

Hello again
I have a problem with a macro
I have a text in column A, something like
" X = 3439.3046 Y = -328.9816 Z = 0.0000" but in many rows in column A
I want to split in columns. It's easy in excel with "text to columns" with options Delimited/next/selecting: tab, semicolon, comma, space, other, "="/next/general/finish.
I tried with macro record, but when I activate the macro with a button, it appears some kind of errors.
I need a macro to do this operation and when i activate this process with a button, I want to work exactly like in excel.

Still doesn't work
The text is in Sheet 1 and the button is in Sheet "Butoane"/"Toshiba 1"
Lokk what is happening when i push the button
Appears an error at texttocolumns macro.

It works now.
I put "Sheets("Main").Select" under Sub...
So it's solved

[SOLVED]