2013-04-10 23:57:08 -07:00
|
|
|
Public Function RepeatStr(aString As String, aNumber As Integer) As String
|
2019-09-12 10:33:56 -07:00
|
|
|
Dim bString As String, i As Integer
|
|
|
|
|
bString = ""
|
|
|
|
|
For i = 1 To aNumber
|
|
|
|
|
bString = bString & aString
|
|
|
|
|
Next i
|
|
|
|
|
RepeatStr = bString
|
2013-04-10 23:57:08 -07:00
|
|
|
End Function
|
2019-09-12 10:33:56 -07:00
|
|
|
|
|
|
|
|
Debug.Print RepeatStr("ha", 5)
|
