Private Sub cmdGen_Click()
 Dim R$, t$, i%
  R = Timer
  t = Right(R, 2)
    For i = 1 To t
    sRandom
    Next
 gentext.Text = sRandom
End Sub

Private Sub gentext_Change()
    Const a = "ABCommonDialogEFGHIJKLMNOPQRSTUVWXYZ"
    Const b = "abCommonDialogefghijklmnopqrstuvwxyz"
    Const c = "1234567890"
 
    Dim Randon$, ran$
    Dim i%
    Dim Masspass$
    Randon = a + b + c
    Masspass = gentext.Text
    For i = 1 To Masspass
      sRandom = sRandom & Mid$(Randon, Int((Rnd * Len(Randon)) + 1), 1)
    Next i
 
End Sub

Public Function sRandom()
 
  Const a = "ABCommonDialogEFGHIJKLMNOPQRSTUVWXYZ"
  Const b = "abCommonDialogefghijklmnopqrstuvwxyz"
  Const c = "1234567890"
 
  Dim Randon$, ran$
  Dim i%
  Dim Masspassspass$
  Randon = a + b + c
  Masspass = 100
  For i = 1 To Mas
    sRandom = sRandom & Mid$(Randon, Int((Rnd * Len(Randon)) + 1), 1)
  Next i
 
End Function