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

[Hack]

What is it that you are trying to do?

What is in your listbox?

[Ricky1]

With the code above, it makes Ricky into

XRicky
XXRicky
XXRickyXXXXXx

etc etc

but trying to get it to do

OXRicky
OXOXRicky
OXRickyOXOX

etc etc

[vbasicgirl]

The String() function will only accept 1 character, if you specify more than one then it uses the first one.


casey.

[Ricky1]

so what the relative function to String() that i can use for two characters?

[RhinoBull]

I'm afraid there isn't so may need to write your own (perhaps something like the one below):

Option Explicit
 
Private Sub Command1_Click()
Dim sFill$
 
    sFill = "AB"
    Debug.Print ConcatString(sFill, 5)
 
End Sub
 
Public Function ConcatString(sChars As String, iNum As Integer) As String
Dim i%, sOutput$
 
    For i = 1 To iNum
        sOutput = sOutput & sChars
    Next i
    ConcatString = sOutput
 
End Function