VBA text box! I'm completely lost...

Hello everyone, I'm currently working on a program at work. I just can't figure out that part.

Here's my problem:

Im trying to transfer some data from an Excel cell to an Excel textbox with Visual Basic Application. I'm able to do it when my cell contains less than 200 characters, but if it exceeds that number, VBA transfers nothing in the text box.

I know that text boxes works with string of 200 characters. I have to find a way to seperate the text in range("a1") in groups of 200 characters. My code looks like this:

Sub texte ()

dim words as string

words = range("A1").value

var1 = range("A1").characters(start:=1, length:=200).txt

var2 = range("A1").characters(start:=201, length:=200).txt

var3 = range("A1").characters(start:=401, length:=200).txt
...

'Then I want to put all these string in consecutive order in my text box one like so:

shapes("textbox1").select '(something like that)

activeshapes("textbox1").text= var1 & var2 & var3 ...

End sub

Of course this doesn't work but I think it gives you a better idea of what I'm trying to accomplish. I'm really desperate right now. I have absolutely no clue of what I can do. I would be nice if someone could give me a hand. Thanks in advance.

Good day!