Splitting cell contents by lines

Hello to all,

Column B contains many lines of numbers, as per the following example:
Line1 111222/145251
Line2 333115
Line3 777555/154154
Line4 888999/115116
Line5 110110
Line6 110115
Line7 620260/145521

So numbers are always 6 digits long, sometimes separated by "/". I need to pass all data to columd D, in sets of 6 digits. In the present case all need to obtain 11 lines of all sets of 6 digits, without the slash.

I wrote a small peace of code but my experience in VBA is too bad to tell and i'm obtaining blank cells on column D:

Please Login or Register  to view this content.

Can someone please let me know what am i doing wrong? (besides writing an horrible code, i know that because i'm not a programmer)

Many thanks in advance for any kind help.
Octavio

Hi Octavio,
try this

Please Login or Register  to view this content.

The Instr formula does not return a boolean (True/False) but the starting position of the string found. Try this instead :

Please Login or Register  to view this content.

Nilem, worked like a charm, i'm green with envy.
Thanks a million.
Octavio