VBA separation of a column's values into three columns

Hello,

I have a situation.
I have been using this code for some errors and line spliting.

Please Login or Register  to view this content.

Now the lines are different and they are like this

doiranis 92 Athens 19953 Attica
Agiou Grigoriou 25 peiraias 15868 Attica
patriarxou gerasimou 25 Velimaxi 85847 Arcadia

Now i want to split them into three columns.
On the first column must appear
e.g
doriranis 92
On the second column
Athens
and on the third 19953

e.g 2
column 1:
Agiou Grigoriou 25
Column 2:
peiraias
column 3:
15868

Can someone please help me? I am completely stuck.
Thanks in advance.

You could use Regular expression.

Ex:

Please Login or Register  to view this content.

Change the pattern

Please Login or Register  to view this content.