String(Y, str)

Ok i have this coding.

Code:

---

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.

Why don't you copy down what you have the user enter, and then what you want the program to display. It is very confusing as to what is and isn't happening correctly with your example.

User enters a Word lets say Ricky.

I want program to do this.
Ask the user for an input. could be a single letters could be a few letters. my code above works for single letters but not for a few letters.

user decides on XoX.

program will make.

XoXRicky
XoXXoXRicky
XoXXoXXoXRicky
XoXXoXXoXXoXRicky
RickyXoX
RickyXoXXoX
XoXRickyXoX
XoXRickyXoXXoX

Get me now ??

*bump*

Just a few For loops would do what you need...

wana explain that a little better timeshifter.