Zoals een Brute Force

[XenomX]

Hoe kan ik in een textbox a,b,c,d to en met z en dan 4 keer achter elkaar dus aaaa en bbbb, aaab, aaac etc.
laten zetten?

Heb het al is eerder gedaan, maar kan de code nergens meer vinden. Iets met Chr(a)... etc.

Bvd!

 

[cbhonda]

met for next lus

Private Sub Knop_Click()
Dim i As Integer
Dim strString As String

For i = 97 To 122
strString = strString & Chr(i)
strString = strString & Chr(i)
strString = strString & Chr(i)
strString = strString & Chr(i)
Next i

txtBox = strString
End Sub

is het zo dat je het wil ?