Dim sizeArray%= Math.Ceiling(strText.Length / 130)
Dim arText(sizeArray-1) as String
Dim i%
For i = 0 to sizeArray
    If i < sizeArray Then
        arText(i) = strText.SubString(i * 130, 130)
     Else
         arText(i) = strText.SubString(i* 130, strText.Length - i  * 130)
     End If
Next