Performance comparison between my repeatFunction and WorksheetFunction.Rept

VBARepeatComparison.vba

' << RESULT >>
' ? repeatString("abc", 10)
' abcabcabcabcabcabcabcabcabcabc
' 
' My repeat()    0.2460938 
' WS.Rept()      1.547852 


Function repeatString$(ByVal repeated$, ByVal count&)
    If count < 1 Then Exit Function
    
    Do While True
        If (count And 1) = 1 Then
            repeatString = repeatString & repeated
            count = count - 1
        End If
        count = count / 2
        If count = 0 Then Exit Function
        repeated = repeated & repeated
    Loop
End Function

Sub testRepeat()
    
    Dim s, e
    Dim i&
    
    s = Timer
    For i = 0 To 100000
        repeatString "abcd", 1000
    Next
    e = Timer
    
    Debug.Print "My repeat()", e - s

    s = Timer
    For i = 0 To 100000
        WorksheetFunction.Rept "abcd", 1000
    Next
    e = Timer
    
    Debug.Print "WS.Rept()", e - s


End Sub