Simple I Think

[Ricky1]

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

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 ??