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
 
        Do Until ((Text.Length) Mod Einzelschritt) = 0
            Text &= " "
        Loop
 
        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...