Увеличение размерности массива путем копирования его элементов

Dim m As Byte() =(5 6 25 14 10 15)
Dim n As Byte() = (m).Concat(m).ToArray()

Module Module1
    Sub Main()
        ' новый размер
        Dim newSize = 14
        ' исходный массив
        Dim oldArray = {5, 6, 25, 14, 10, 15}
        ' новый массив
        Dim newArray(newSize) As Integer
 
        Dim indexOld = 0
        Dim indexNew = 0
        While indexNew <= newSize
            newArray(indexNew) = oldArray(indexOld)
            indexNew += 1
            indexOld += 1
            ' обнуляем индекс для исходного массива
            ' для обеспечения "цикличности"
            If (indexOld >= oldArray.Length) Then
                indexOld = 0
            End If
        End While
    End Sub
End Module

Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
    Dim oldArray() As Integer = {5, 6, 25, 14, 10, 15}
    'заполняем newArray элементами массива oldArray
    Dim newArray(15) As Integer
    Array.Copy(oldArray, newArray, 6)
    'newArray: 5,6,25,14,10,15,0,0,0,0,0,0,0,0,0,0
    Array.Copy(oldArray, 1, newArray, 5, 5)
    'newArray: 5,6,25,14,10,6,25,14,10,15,0,0,0,0,0,0
    Array.Copy(oldArray, 2, newArray, 12, 2)
    'newArray: 5,6,25,14,10,6,25,14,10,15,0,0,25,14,0,0
    'удаляем элемент массива oldArray с индексом 2
    Dim i As Integer = 2
    Array.Copy(oldArray, i + 1, oldArray, i, UBound(oldArray) - i)
    Array.Clear(oldArray, oldArray.Length - 1, 1)
    'oldArray: 5,6,14,10,15,0
    'вставляем элемент в массив oldArray с индексом 3
    i = 3
    Array.Copy(oldArray, i, oldArray, i + 1, UBound(oldArray) - i)
    oldArray(i) = 100
    'oldArray: 5,6,14,100,10,15
End Sub

    Shared Function CreateNewArray(oldArray As Integer(), newSize As Integer) As Integer()
        Dim newArr(newSize - 1) As Integer
        For i = 0 To newSize - 1
            newArr(i) = oldArray(i Mod oldArray.Length)
        Next
        Return newArr
    End Function

    Shared Function CreateNewArray(Of T)(oldArray As T(), newSize As Integer) As T()
        Dim newArr(newSize - 1) As T
        For i = 0 To newSize - 1
            newArr(i) = oldArray(i Mod oldArray.Length)
        Next
        Return newArr
    End Function