Separating the lines in a multiline textbox

[seoptimizer2001]

If you know how many characters are in each line then how about...

Dim strText as String
Dim strArr() as String
Dim i,j as Integer
 
''j is the number of characters per line
j = 5
 
strText = Text1.Text
 
While strText <> ""
   Redim Preserver strArr(i)
   strArr(i) = Mid$(1, strText, j)
   strText = Mid$(j + 1, strText, Len(strText) - j)
   i = i + 1
Wend