Private Sub cmdRandomPass_Click()
  Dim i, ii     As Long
  Dim lZZ       As Long
  Dim sPass     As String
  ' Eine Listbox, für die Passwörter
  List1.Clear
 
  For i = 0 To 1800
    sPass = ""
    For ii = 1 To 6
      ' Eine Zufallszahl zwischen 65 und 90 erzeugen (Buchstaben A-Z)
      lZZ = ((89 - 65 + 1) * Rnd) + 65
      ' Zufallszahl  als Charakter an das Passwort hängen
      sPass = sPass & Chr(lZZ)
    Next ii
    List1.AddItem sPass
  Next i
End Sub