''' <summary>Text in eine Liste von Teilstrings aufspalten</summary>
  ''' <param name="text">aufzuspaltender Text</param>
  ''' <param name="elementlength">Länge der Teilstrings</param>
  ''' <returns>Liste der Teilstrings</returns>
  Private Function SplitText(ByVal text As String, _
        ByVal elementlength As Integer) As List(Of String)
 
        If String.IsNullOrEmpty(text) Then
            Throw New ArgumentException("Text fehlt")
        End If
 
        If elementlength < 1 Or text.Length < elementlength Then
            Throw New ArgumentException("Elementlänge unplausibel")
        End If
 
        'einmaliges Anhängen 
        If text.Length Mod elementlength > 0 Then
            text &= StrDup(elementlength, " ")
        End If
 
        Dim elements As New List(Of String)
 
        'Step-Weite regelt das Schleifenende
        For i As Integer = 0 To text.Length - elementlength Step elementlength
            elements.Add(text.Substring(i, elementlength))
        Next i
 
        Return elements
    End Function