RosettaCodeData/Task/Repeat-a-string/VBA/repeat-a-string-2.vba
2019-09-12 10:33:56 -07:00

3 lines
144 B
Text

Public Function RepeatString(stText As String, iQty As Integer) As String
RepeatString = Replace(String(iQty, "x"), "x", stText)
End Function