文字列の繰り返し関数はないの？

文字の繰り返し関数はString(n,c)ですが、文字列の繰り返し関数はないの？
ないようです。なので作ってみました。

Function Strings(n,s)
Dim a:ReDim a(n):Strings=Join(a,s)
End Function

MsgBox Strings(5,"abc")

しかし、これくらいなら関数を作らずとも簡単に書けますね。

MsgBox Join(Split(Space(5)),"abc")

更に、こういう方法もあります。

MsgBox Replace(Space(5),Chr(32),"abc")