Split sentence into 2 cells

[sgm1911]

I got a cell with the text:

THIS IS AN EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE GO TO NEXT ROW

How would I get excel to split the sentence above into 2 different cells A1 & A2, after the sentence exceeds 66 characters
So that-
A1: THIS IS AN EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE
A2: GO TO NEXT ROW

--------------------------------------------

Additionally, if the cell is 67 characters: THIS IS AN EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLEE
How would I split to to 2 different cells so the words dont get cut off half way?
A1: THIS IS AN EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE EXAMPLE
A2: EXAMPLEE

 

[VBA Geek]

try:

Book1
	A	B	C	D	E	F	G	H	I	J	K
1	Dudeeeee Excel Rocks you can do so much with it lolllll whats up ya wanna go to the beach today
2
3
4	Dudeeeee Excel Rocks you can do so much with it lolllll whats up
5	ya wanna go to the beach today
Sheet3

Cell Formulas
Range	Formula
A4	=IF(LEN(A1)<67,A1,LEFT(A1,FIND("@",SUBSTITUTE(LEFT(A1,67)," ","@",LEN(LEFT(A1,67))-LEN(SUBSTITUTE(LEFT(A1,67)," ",""))))-1))
A5	=MID(A1,LEN(A4)+2,255)

 

[sgm1911]

try:

	A	B	C	D	E	F	G	H	I	J	K
1	Dudeeeee Excel Rocks you can do so much with it lolllll whats up ya wanna go to the beach today
2
3
4	Dudeeeee Excel Rocks you can do so much with it lolllll whats up
5	ya wanna go to the beach today

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

Sheet3​

Worksheet Formulas Cell Formula A4 =IF(LEN(A1)<67,A1,LEFT(A1,FIND("@",SUBSTITUTE(LEFT(A1,67)," ","@",LEN(LEFT(A1,67))-LEN(SUBSTITUTE(LEFT(A1,67)," ",""))))-1)) A5 =MID(A1,LEN(A4)+2,255) <thead> </thead><tbody> </tbody>

<tbody>
</tbody>

Thanks ! Works perfectly !

 

[sgm1911]

try:

	A	B	C	D	E	F	G	H	I	J	K
1	Dudeeeee Excel Rocks you can do so much with it lolllll whats up ya wanna go to the beach today
2
3
4	Dudeeeee Excel Rocks you can do so much with it lolllll whats up
5	ya wanna go to the beach today

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

Sheet3​

Worksheet Formulas Cell Formula A4 =IF(LEN(A1)<67,A1,LEFT(A1,FIND("@",SUBSTITUTE(LEFT(A1,67)," ","@",LEN(LEFT(A1,67))-LEN(SUBSTITUTE(LEFT(A1,67)," ",""))))-1)) A5 =MID(A1,LEN(A4)+2,255) <thead> </thead><tbody> </tbody>

<tbody>
</tbody>

Thanks ! I have a problem now, because sometimes the sentence goes into 3 lines.
So how would I have the same formulas, for cells A1 & A2 & A3, after the sentence exceeds 66 characters for A1 and A2?