String$函数只能重复复制单字符，当需要重复复制2个或多个字符时，就需要一个循环。看起来是否很麻烦？然而，使用以下的函数就能解决这个问题。基本思路是：建立一个空格字符串，其长度为要重复复制的数目，然后替换每一个空格为要复制的字符串：

Function ReplicateString(Source As String, Times As Long) As String

ReplicateString = Replace$(Space$(Times), " ", Source)

End Function

但是请注意：根据字符串的长度以及重复的数目，这个方法也许比传统的循环方法要慢些。