You might use VBA's native String function in lieu of 
Application.WorksheetFunction.Rept(...)