Questo è il codice che mi sforna tutte le combinazioni di lettere il fatto è che se io da una SUB srivo 'MsgBox Pass' lui mi restituisce solo l' ultima combinazione.
Come posso farmele restituire tutte?

'CopyRight by JabJoint ;-)

Function Pass() As String

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

On Error Resume Next

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

nT = 5 '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

Pass = a1 & a2 & a3 & a4

Open "C:\WINDOWS\DESKTOP\Password.txt" For Append As #1
Print #1, Pass
c = c + 1
Close #1

Next

Next

Next

Next

MsgBox "Totali combinazioni: " & c

End Function