[VB] Chi si intende di FUNCTION?

[jabjoint]

No il mio intento era quello di salvare tutte le combinazioni in un file di testo, ma devo farlo in un altra procedura.
Quindi devo tirar fuori tutte le combinazioni da quella usata per generarle e farle entrare nella procedura che mi crea il file.

'per capire meglio:

Sub
combinazioni
End sub

Sub
Write combinazioni
End sub
'

[jabjoint]

Ho provato il tuo codice ma nn mi và.
Public Password() As String
Questa per lui deve essere Private non Public.

[jabjoint]

Non badare all' ultima cosa che t0 ho detto funziona il tuo codice!

[jabjoint]

Cmq grazie mille ho risolto:

Private Password() As String

Private Sub Pass()
On Error Resume Next

Dim nT As Integer
Dim c As Long
Dim a1, a2, a3, a4 As String

a1 = "a"
a2 = "a"
a3 = "a"
a4 = "a"

nT = 25 'Solo le prime 5 lettere del alfabeto '25' tutte!

For L1 = 0 To nT
av = Chr(97 + L1)
a1 = av
For L2 = 0 To nT
av = Chr(97 + L2)
a2 = av
For L3 = 0 To nT
av = Chr(97 + L3)
a3 = av
For L4 = 0 To nT
av = Chr(97 + L4)
a4 = av

ReDim Preserve Password(c)
Password(c) = a1 & a2 & a3 & a4

c = c + 1

Next L4
Next L3
Next L2
Next L1

MsgBox "Totali combinazioni: " & CStr(c)
End Sub


Private Sub Command1_Click()
Dim StringaTot As String
Dim Cont As Double

Call Pass

Open "C:\WINDOWS\DESKTOP\Password.txt" For Append As #1
For Cont = 0 To UBound(Password)
Print #1, Password(Cont)
Next Cont
Close #1

End Sub

[Mabi]

Prego jabjoint.