Private Const CMAXLETTER = 6
 
Private Function AlleKombi(Txt As String) As String()
    Dim Teil As String, Kombis() As String, Kombi As String
    Dim Index As Long, SplitterIndex As Long
 
    For SplitterIndex = 0 To Len(Txt) - 1
        Splitter Txt, SplitterIndex, True
    Next SplitterIndex
End Function
 
Private Function Splitter(Txt As String, AnzSplitter As Long, Reset As Boolean) _
  As String
    Dim Index As Long, LenTxt As Long
    Static Buf As String
 
    If AnzSplitter = 0 And Len(Txt) <= CMAXLETTER Then
        Splitter = Txt
'        Debug.Print Splitter
        Splitter = ""
    End If
    If Reset = True Then Buf = ""
    LenTxt = Len(Txt)
    If AnzSplitter = 1 And LenTxt <= 2 * CMAXLETTER Then
        Index = 1
        Do While Index <= LenTxt - 1
            If Index <= CMAXLETTER And LenTxt - Index <= CMAXLETTER Then
                Splitter = StrCat(Splitter, Left(Txt, Index), Right(Txt, LenTxt _
                  - Index))
                If Not (Buf = "") Then Splitter = StrCat(Buf, Splitter)
'                Debug.Print Splitter
                Splitter = ""
            End If
           Index = Index + 1
        Loop
    End If
    If AnzSplitter > 1 Then
        Index = 1
        Do While Index <= LenTxt - AnzSplitter
            Buf = StrCat(Buf, Left(Txt, Index))
            Splitter = StrCat(Splitter, Buf, Splitter(Right(Txt, LenTxt - _
              Index), AnzSplitter - 1, False))
'            Debug.Print Splitter
            If Not (Splitter = "") Then
                Buf = StrLisCut(Splitter, 1)
                Splitter = ""
            End If
            Index = Index + 1
        Loop
    End If
End Function
 
Private Function StrLisCut(Txt As String, Anzahl As Long) As String
    Dim Lis() As String
    Dim Index As Long
 
    Lis = Split(Txt)
    StrLisCut = ""
    For Index = 0 To UBound(Lis()) - 1
        StrLisCut = StrCat(StrLisCut, Lis(Index))
    Next Index
End Function
 
Private Function StrCat(ParamArray Lis()) As String
    Dim Index As Long
 
    For Index = 0 To UBound(Lis())
        If Not (Lis(Index) = "") Then
            If StrCat = "" Then
                StrCat = Lis(Index)
            Else
                StrCat = StrCat + " " + Lis(Index)
            End If
        End If
    Next Index
End Function

NS