Private Sub Aleatory_Comb(ByRef CharList() As String, ByVal iDigits As Integer, ByVal iNumber As Long)
    Dim sWord As String
    Dim x     As Long
    Dim y     As Long
    For y = 1 To iNumber
        For x = 1 To iDigits
            Randomize
            sWord = sWord + CharList((Rnd * (UBound(CharList()) - 1) + 1))
        Next
        MsgBox sWord: sWord = ""
    Next
End Sub
 
Private Sub Form_Load()
    Dim Matriz() As String
    Matriz = Split("a,b,c,d,e,f,g,h,i,j,k,l,,m,ñ,o,p,q,r,s,t,u,v,w,x,y,z", ",")
    Call Aleatory_Comb(Matriz, 5, 7)
End Sub

'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Rem Opciones.
Option Explicit
 
Rem Eventos.
Event StrOuput(ByRef Str_Text As String, ByRef Cancel As Boolean)
 
Rem Declaracion (Variables).
Private Priv_String                             As String
 
Rem Propiedades.
Public Property Get String_() As String
    String_ = Priv_String
End Property
Public Property Let String_(Str_String As String)
    Priv_String = Str_String
End Property
 
Rem Procesos/funciones.
Public Function Start_(Optional StrToProc As String) As Boolean
    If Len(StrToProc) Then String_ = StrToProc
    Call CombinateString(Priv_String)
End Function
 
 
Rem funciones/Procesos
Private Sub CombinateString(ByRef Str_String As String, Optional ByRef str_Fix As String, Optional ByRef Cancel As Boolean)
Dim Lng_LenStr                                  As Long
Dim Lng_LenStrIndex                             As Long
    If Cancel Then Exit Sub
    Lng_LenStr = Strings.Len(Str_String)
    If Lng_LenStr <> 1 Then
        For Lng_LenStrIndex = 1 To Lng_LenStr
            Call CombinateString(Strings.Left$(Str_String, Lng_LenStrIndex - 1) & Strings.Mid$(Str_String, Lng_LenStrIndex + 1), str_Fix & Strings.Mid$(Str_String, Lng_LenStrIndex, 1), Cancel)
        Next
    Else
        RaiseEvent StrOuput(str_Fix & Str_String, Cancel)
    End If
End Sub
 

'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Rem Opciones.
Option Explicit
 
Rem Eventos.
Public WithEvents ClsStrCmb                    As Cls_StrCmb
 
Rem Declaraciones.
Private CantCombinateString                    As Long
 
Rem procesos/Funciones
Private Sub ClsStrCmb_StrOuput(ByRef Str_Text As String, ByRef Cancel As Boolean)
    CantCombinateString = CantCombinateString + 1
    Debug.Print Str_Text
    DoEvents
End Sub
Public Property Get MaxConbinaciones() As Long
    MaxConbinaciones = CantCombinateString
End Property
Private Sub Class_Initialize()
    Set ClsStrCmb = New Cls_StrCmb
End Sub
Private Sub Class_Terminate()
    Set ClsStrCmb = Nothing
End Sub
 

'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Rem Opciones.
Option Explicit
 
Rem Procesos/funciones
Sub MAIN()
Dim Cls_NewMainProc                             As New Cls_Main
Const Const_StrtoProc                           As String = "BlackZeroX"
    With Cls_NewMainProc
        With .ClsStrCmb
            '   //  .String_ = Const_StrtoProc
            Call .Start_(Const_StrtoProc)
        End With
        Debug.Print "Max Combinaciones {"; .ClsStrCmb.String_; "} son de"; .MaxConbinaciones
    End With
End Sub