Visual Basic 6 - generatore sequenziale

Cia è da molto che non scrivo in questo forum ma ora è arrivata l'ora.
Vorrei creare un generatore sequenziale cioè come lo dice già la parola deve creare sequenze di numeri e lettere appunto sequenziali.
Esso deve utilizzare tutte le lettere(miniscole) e i numeri(0-9) e deve fare ciò.
Es.
aaa
baa
caa
...
9aa arrivato qui la seconda lettera deve diventare b e fare cio:
aba
bba
cba
...
9ba
In poche parole gni volta che il primo carattere arriva a 9 il secondo "aumenta" facendo diventare tutti i caratteri da sinistra verso destra "a". Esso deve eseguire tutto ciò finchè i caratteri non diventino tutti 999.
P.S. tutte le seguenze che cra devono essere create in un file .txt.
grazie per la collaborazione.
DavidP

Non si é capito molto, posta il codice che hai già scritto ...

s = "aaa"
Debug.Print s
' scorre la stringa s che è di tre caratteri
For n = 1 To 3
  For l = 98 To 122 ' codice ascii dei caratteri da b a z
    Mid$(s, n, 1) = Chr$(l) 'cambia l'ennesimo carattere di s col nuovo carattere
    Debug.Print s
  Next
  For l = 48 To 57 ' codice ascii dei caratteri da 0 a 9
    Mid$(s, n, 1) = Chr$(l)
    Debug.Print s
  Next
Next

Al posto di debug.print scrivi nel tuo file

Un generatore di password ?

Alfonso ti ringrazio ma per ora non posso provare il tuo codice, perchè ho win 7 e non so come fare ad installare vb6 su di esso .
Tu hai qualche soluzione?

generatore sequenziale? Non sapevo che i bruteforce si chiamassero così :P

Se cerchi tra i sorgenti del sito troverai fatto un esempio fatto dallo stesso pierotofy

Provato!!
ma non era così.
come ho detto prima deve fare così
aaa
baa
...
9aa
dopo
aba
..
etc.
mentre il tuo(Alfonso) fa aaa, baa,..,9aa e poi inizia così 9aa, 9ba,..,99a,99b etc.
e cosi facendo mi salta molte combinazioni Xd.
quindi se mi potete aiutare in questo modo da me sopraindicato ve ne sarei grato.

Avresti potuto arrivarci da solo studiando l'esempio già ottenuto ...

    Dim s As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim x As String
    
    s = Space$(3)
    x = "abcdefghijklmnopqrstuvwxyz0123456789"
    For k = 1 To 36
        For j = 1 To 36
            For i = 1 To 36
                Mid$(s, 1) = Mid$(x, i, 1)
                Mid$(s, 2) = Mid$(x, j, 1)
                Mid$(s, 3) = Mid$(x, k, 1)
                Debug.Print s
            Next i
        Next j
    Next k