Dim i 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
    For i = 1 To 26 ^ 5
        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 Then
          If blnChr2 Then
            sSalat = ChrW(lb4 + 65) & ChrW(lb3 + 65) & ChrW(lb2 + 65) & ChrW( _
              lb1 + 65) & ChrW(lb0 + 65)
            Print #1, sSalat
          End If
        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."

Ohne Mampf, kein Kampf !