Simple I Think

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

---

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

What is it that you are trying to do?

What is in your listbox?

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

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


casey.

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

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

VB Code:

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