String(Y, str)

[Ricky1]

Ok i have this coding.

Public Sub xXxoOozZz()

Dim Y As Integer, Z As Integer
Dim X As Long
Dim str As String, Word As String, NewWord As String
str = InputBox("Choose Letter (s) To Gen With", "Choose Letter !")
X = lstRoot.ListCount - 1
lstRoot.ListIndex = X
Y = 1
Z = 0

Do Until X = -1

    Do While Z <= 32
        Do While Y <= 32
            Word = txtBefore.Text & lstRoot.List(X) & txtAfter.Text
            NewWord = String(Y, str) & Word & String(Z, str)
        If Len(NewWord) <= 32 Then lstGen.AddItem NewWord
        Y = Y + 1
        Loop
        Y = 0
        Z = Z + 1
        Loop
        X = X - 1
        Y = 0
        Z = 0
        Loop
End Sub

if Str has the value = XoX if will only take the X
how would i make it take the whole value but still do the Looping thing.