Private Laenge As Integer
 
Private Sub SALAT()
Laenge = 4
Open "C:\temp\salat.txt" For Output As #1
Kombinationen "", ""
Close #1
End Sub
 
Private Sub Kombinationen(ByVal Start As String, ByVal Anfuegen As String)
Dim i As Integer
 
If InStr(Start, Anfuegen) = 0 Then
    Start = Start & Anfuegen
    If Len(Start) = Laenge Then
        Print #1, Start
    Else
        For i = 1 To 26
            Kombinationen Start, Chr(i + 64)
        Next
    End If
End If
End Sub