Private Sub Kombinationen(ByVal Start As String, ByVal Anfuegen As String)
Dim i As Integer
Dim Startwert As Integer
 
If Len(Anfuegen) = 0 Then Startwert = 64 Else Startwert = Asc(Anfuegen)
 
If InStr(Start, Anfuegen) = 0 Then
    Start = Start & Anfuegen
    If Len(Start) = Laenge Then
        Print #1, Start
    Else
        For i = Startwert + 1 To 90
            Kombinationen Start, Chr(i)
        Next
    End If
End If
End Sub