1. Alles unnötige aus der Schleife rausnehmen! 
     - Keine Progressbar! 
     - Mit einer Stringvariablen arbeiten, nicht mit einem Textfeld!
     - Den zufälligen Buchstaben NICHT aus einer Liste nehmen!
     - die Liste, in die reingeschrieben wird verstecken!!!!!

Static intCounter
Dim sPass       As String
Dim i As Long, ii As Long
 
lstKennwörter.Visible = False
 
For i = 1 To 500000
  DoEvents
  intCounter = intCounter + 1
  'ProgressBar1.Value = intCounter
  sPass = ""
  For ii = 1 To 25
    sPass = sPass & Chr(Int((26 * Rnd) + 97))
  Next ii
  'Debug.Print "Password: " & intCounter & " " & sPass
  lstKennwörter.AddItem sPass
Next i
lstKennwörter.Visible = True