Повторение текста по достижению заданной длины - Visual Basic .NET

Формулировка задачи:

Добрый вечер. Подскажите, пожалуйста, как привести один текст к размеру другого? В общем есть два файла - с изначальным текстом и с текстом, который нужно повторить

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
        End If
 
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox7.Text = My.Computer.FileSystem.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
        End If
    End Sub

т.е в первом файле, к примеру, было "01110100111", а во втором "key". Как сделать чтобы "key" повторилось до размера изначального текста, т.е стало "keykeykeyke"?

Решение задачи: «Повторение текста по достижению заданной длины»

textual
                            Листинг программы 
                        

                                    Dim S As String = "key"
        Dim Length As Integer = 8
        MsgBox(String.Concat(Enumerable.Repeat(S, Length / S.Length + 1).ToArray).Substring(0, Length))
                        