'creati una funzione "ProvaCodice" che ti restituisce un true se il codice è giusto e False se è sbagliato

Dim vettLettere, vettNumeri

vettLettere = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "l")
vettNumeri = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

'provi con una lettera
For i% = 0 To 10
test$ = vettLettere(i%)
If ProvaCodice(test$) = True Then
codice$ = test$
' memorizzi il codice giusto variabile codice$
Exit Sub
End If
Next i%
'provi con due lettere
For k% = 0 To 10
For i% = 0 To 10
test$ = vettLettere(k%) + vettLettere(i%)
If ProvaCodice(test$) = True Then
codice$ = test$
Exit Sub
End If
Next i%
Next k%
'provi con tre lettere
For j% = 0 To 10
For k% = 0 To 9
For i% = 0 To 9
test$ = vettLettere(j%)+vettLettere(k%)+vettLettere(i%)
If ProvaCodice(test$) = True Then
codice$ = test$
Exit Sub
End If

Next i%
Next k%
Next j%

' e così via finche non raggiungi il limite di caratteri del tuo codie
' e poi inizi ad inserire anche i numeri con lo stesso metodo