Maybe somewhat faster:
Code:
Public Function Repeat(ByVal number As Long, ByVal characters As String) As String
    Dim lngCharacters As Long
    Dim lngTotal As Long
    Dim lngIndex As Long
    
    lngCharacters = Len(characters)
    lngTotal = number * lngCharacters
    Repeat = String$(lngTotal, 0)
    For lngIndex = 1 To lngTotal Step lngCharacters
        Mid$(Repeat, lngIndex, lngCharacters) = characters
    Next
End Function
This even handles Unicode values that String$() doesn't itself.