Private Sub cmdRandomPass_Click()
  Dim i, ii       As Long
  Dim lZZ         As Long
  Dim lChrOrNum   As Long
  Dim sPass       As String
  Dim lMin, lMax  As Long
 
  lMin = 200
  lMax = 0
  List1.Clear
  For i = 0 To 500
    sPass = ""
    For ii = 1 To 6
      lChrOrNum = 1 * Rnd
      If lChrOrNum = 1 Then
        'Dann einen Buchstaben
        lZZ = ((89 - 65 + 1) * Rnd) + 65
        If lZZ < lMin Then lMin = lZZ
        If lZZ > lMax Then lMax = lZZ
        sPass = sPass & Chr(lZZ)
      Else
        ' sonst eine Zahl von 0-9
        lZZ = (9 * Rnd)
        sPass = sPass & lZZ
      End If
    Next ii
    List1.AddItem sPass
    'Debug.Print (49 * Rnd + 1)
  Next i
  Debug.Print "lMin: " & lMin
  Debug.Print "lMax: " & lMax
End Sub