[vb6] How to create list of same items?

Suppose you want this result:

    abc,abc,abc,abc,abc

But you don't want to create it in the Do or For loop. So you can use the following syntax:

    Mid(Replace(5, "~"), "~", ",abc"), 2)