'Benötigt wird eine Listbox
Private Sub Form_Activate()
 
Dim i%, j%, Z%, Max%, Ag$, X%()
 
Max = Val(InputBox("Wieviele Zeichen?", , 1))
Me.MousePointer = 11
With List1
  .Clear
  .Visible = False
  For i = 1 To Max
    ReDim X(i)
    For j = 1 To i
      X(j) = Asc("a")
    Next j
    Do
      Ag = ""
      For j = 1 To i
        Ag = Chr(X(j)) & Ag
      Next j
      .AddItem Ag
      For Z = 1 To i
        X(Z) = X(Z) + 1
        If X(Z) <= Asc("z") Then Exit For
        X(Z) = Asc("a")
      Next Z
      DoEvents
    Loop While Z <= i
  Next i
  .Visible = True
End With
Me.MousePointer = 0
 
End Sub

Gruss,

Zardoz