Dim i As Long
    Dim cnt As Long
    Dim max As Long
    Dim lb0 As Byte
    Dim lb1 As Byte
    Dim lb2 As Byte
    Dim lb3 As Byte
    Dim lb4 As Byte
    Dim sSalat As String
    Dim bChr1 As Byte
    Dim bChr2 As Byte
    Dim blnChr1 As Boolean
    Dim blnChr2 As Boolean
    bChr1 = 4 ' 69-65 = 4 = E
    bChr2 = 5 ' 70-65 = 4 = F
    Open "C:\SALAT.TXT" For Output Lock Read As #1
    max = 26 ^ 5
    For i = 1 To max
        blnChr1 = False
        blnChr2 = False
        If lb0 = bChr1 Then blnChr1 = True
        If lb0 = bChr2 Then blnChr2 = True
        If lb1 = bChr1 Then blnChr1 = True
        If lb1 = bChr2 Then blnChr2 = True
        If lb2 = bChr1 Then blnChr1 = True
        If lb2 = bChr2 Then blnChr2 = True
        If lb3 = bChr1 Then blnChr1 = True
        If lb3 = bChr2 Then blnChr2 = True
        If lb4 = bChr1 Then blnChr1 = True
        If lb4 = bChr2 Then blnChr2 = True
        If blnChr1 And blnChr2 Then
            sSalat = ChrW(lb4 + 65) & ChrW(lb3 + 65) & ChrW(lb2 + 65) & ChrW( _
              lb1 + 65) & ChrW(lb0 + 65)
            Print #1, sSalat
            cnt = cnt + 1
        End If
        If lb0 < 26 Then lb0 = lb0 + 1
        If lb0 = 26 Then lb0 = 0: lb1 = lb1 + 1
        If lb1 = 26 Then lb1 = 0: DoEvents: lb2 = lb2 + 1
        If lb2 = 26 Then lb2 = 0: lb3 = lb3 + 1
        If lb3 = 26 Then lb3 = 0: lb4 = lb4 + 1
        If lb4 = 26 Then Exit For
    Next i
    Close #1
    Debug.Print "DONE: " & cnt & " von " & max & " möglichen Kombinationen"

Ohne Mampf, kein Kampf !