Const s As String = "1234567890"
v = Replace(String(3276, "X"), "X", s)

Thanks Rick! Didn't think of that. Nice!
Dana DeLouis



On 10/14/09 1:22 PM, Rick Rothstein wrote:
For i = 1 To 3276
maxLengthValue = maxLengthValue & "0123456789"
Next i

HI. Just a different idea for building the string...

Sub Demo()
Dim v
Const s As String = "1234567890"
v = WorksheetFunction.Rept(s, 3276)
Debug.Print Len(v)
End Sub

You can get the same end result that your code produces using built-in
VB functions...

Sub Demo()
Dim v
Const s As String = "1234567890"
v = Replace(String(3276, "X"), "X", s)
Debug.Print Len(v)
End Sub