Miren, este es el code q me he currado para hacerlo sin tnr q ir digito por digito:

Private Sub Form_Load()
 
    Dim ABC() As String
    ABC = Split("a
b
c
d
e
f
g
h
i
j
k
l
m
n
ñ
o
p
q
r
s
t
u
v
w
x
y
z", "
")
    Call BF(App.Path & "\Dic.txt", ABC, 3)
 
End Sub
 
Public Function BF(DirPath As String, Chrptr() As String, Longitud%)
 
    Dim x%, FinChrptr As String, Finpalabra As String, Palabra As String
 
    FinChrptr = UBound(Chrptr())
    For x = 1 To Longitud: Finpalabra = Finpalabra + Chrptr(FinChrptr): Next
 
    ' MsgBox Finpalabra
 
    Open DirPath For Output As #1
 
 
    While Not Palabra = Finpalabra
 
 
    Wend
 
    Close #1
    MsgBox "¡Combinaciones completadas!", vbInformation, "VB6 Brute Force by *PsYkE1*"
 
End Function

Bien, donde me quede es aqui:

    While Not Palabra = Finpalabra
 
 
    Wend

Es decir, mientras Palabra no sea igual a FinPalabra("zzz" en este caso) q haga el siguiente bucle, pero miren que le doy vueltas y no sabria seguir , me podrian echar una mano???

Gracias a to2!!