Simple I Think

[RhinoBull]

I'm afraid there isn't so may need to write your own (perhaps something like the one below):

Option Explicit
 
Private Sub Command1_Click()
Dim sFill$
 
    sFill = "AB"
    Debug.Print ConcatString(sFill, 5)
 
End Sub
 
Public Function ConcatString(sChars As String, iNum As Integer) As String
Dim i%, sOutput$
 
    For i = 1 To iNum
        sOutput = sOutput & sChars
    Next i
    ConcatString = sOutput
 
End Function