Public Shared Function String2Array(ByVal Text As String, Optional ByVal _
      Einzelschritt As Integer = 1) As String()
        If Einzelschritt < 1 Then Einzelschritt = 1
        If Einzelschritt > Text.Length Then Einzelschritt = Text.Length - 1
 
        Dim ap As Integer = ((Text.Length) Mod Einzelschritt)
 
        If ap <> 0 Then
 
            For i As Integer = 0 To ap
                Text &= " "
            Next
 
        End If
 
        Dim Arr(CInt(Text.Length / Einzelschritt) - 1) As String
 
        Dim j As Integer = 0
        For i As Integer = 0 To Arr.Length - 1
 
            Arr(i) = Text.Substring(j, Einzelschritt)
            j += Einzelschritt
 
        Next
 
        Return Arr
    End Function

Ahnungsloser ahnungsloser...