[RESOLVED] Split by count of characters

[Lauriux1]

I want split text by count of characters to arLines for example:
Original text:

AAAAAAAAAAAAAA

Splited text by 3 characters:

AAA
AAA
AAA
AAA
AA

Now I'm using this:

arLines = Split(Test1.Text, "x")
For i = 0 To UBound(arLines)
'Misc code
Next i

This works good but before spliting I have put "x" every 3 characters in Textbox.
So maybe there is an way how can I split text by count to arLines not by "x" ?