iText = "Добро пожаловать на сайт "
iCount = 5 ' количество повторений
iReptText = Application.Rept(iText, iCount)
iReptText = WorksheetFunction.Rept(iText, iCount)
iReptText = Excel.Application.Rept(iText, iCount)
iReptText = Excel.WorksheetFunction.Rept(iText, iCount)
iReptText = Application.WorksheetFunction.Rept(iText, iCount)
Если нет необходимости в использовании переменных, то :
iReptText = Application.Rept("Повторяющийся текст" & vbCrLf, 5)
MsgBox iReptText
Максимально допустимое количество символов в новой строке не может превышать 32767
Для генерации строки, содержащей указанное число пробелов используйте функцию Basic - Space, а для генерации строки, содержащей указанное число повторяющегося символа - String