String(Y, "x") works fine but i try and do String(Y, "xo") it stil only uses the X, how do i do it so i can have a number of characters ??Code:Private Sub Command3_Click()
Dim X As Integer, Y As Integer, Z As Integer
Dim Word As String
For X = 0 To List1.ListCount - 1
Y = 0
Z = 0
Do While Y <= 30
Do While Z <= 30
Word = String(Y, "x") & List1.List(X) & String(Z, "x")
If Len(Word) <= 32 Then
List2.AddItem Word
End If
Z = Z + 1
Loop
Z = 0
Y = Y + 1
Loop
Next X
