Dim vPassword as String
  Dim vKategorie as Integer
  Dim i as Integer
  Dim r as Random
  r = New Random

  For i=1 to Val(Length.text)
    vKategorie = r.InRange(1, 3)
    if vKategorie = 1 then
      //--Zahlen
      vPassword = vPassword + Chr(r.InRange(48, 57))
    end if
    if vKategorie = 2 then
      //--Großbuchstaben
      vPassword = vPassword + Chr(r.InRange(65, 90))
    end if
    if vKategorie = 3 then
      //--Kleichbuchstaben
      vPassword = vPassword + Chr(r.InRange(97, 122))
    end if
  Next

  Password.Text = vPassword