Dim strTest = _
  "tespaushdöahdilajsdopiasjdpoasjdpalsmdopajdpiajsdopajüsdopjaspdjoüasdjoüpao" & _
  "jüdopasjdopajüsdopajsdopjaghjghjghjghjghjghjghjghjghjghjspodjapsodjüapsdjot" & _
  "spaushdöahdilajsdopiasjdpoasjdpalsmdopajdpiajsdopajüsdopjaspdjoüasdjoüpaosj" & _
  "dopasjdopajüsdopajsdopjaghjghjghjghjghjghjghjghjghjghjspodjapsodjüapsdjo"
            Debug.WriteLine("Länge des Textes: " & strTest.length())
            Dim sizeArray% = Math.Ceiling(strTest.Length / 130)
            Debug.WriteLine("Anzahl Teile: " & sizeArray)
            Dim arText(sizeArray - 1) As String
            Dim i% = 0
            For i = 0 To sizeArray - 1
                If i < sizeArray - 1 Then
                    Dim ausgabe = strTest.SubString(i * 130, 130)
                    Debug.WriteLine(ausgabe)
                    Debug.WriteLine(ausgabe.length())
                Else
                    Dim ausgabe1 = strTest.SubString(i * 130, strTest.Length - ( _
                      i * 130))
                    Debug.WriteLine(ausgabe1)
                    Debug.WriteLine(ausgabe1.length())
                End If
            Next i