如10个abc，string()只能取到第一个a

String函数的功能大概是这样实现的：
Function String(Number As Long, Character)
If VarType(Character) = vbString Then Character = Asc(Character)
'生成重复字符的算法略
End Function
也就是如果第二个参数给的是字符串类型，则调用Asc函数将其转换成字符编码；说白了，String函数是用字符编码这个【数字】来生成重复字符串的，因此只能是一个字符在重复
（注：String函数真正的内部实现可能并非如此，但是至少在“取第一个字符”这个特性上，String和Asc是一致的；而且，如果String的第二参数用了空字符串，会跟Asc("")一样报错误5：无效的过程调用或参数，这让人更有理由怀疑String内部就是调用了Asc函数）

自己写一个呗

'　c1 是即将重复的字符串；m 是需要重复的次数
'　调用格式：cString(c1, m)
Function cString(Byval c1 As String, Byval m As Integer) As String
Dim i As Integer
cString = c1
For i = 2 To m
cString = cString & c1
Next
End Function