Объединить два массива в один

Module Module1
 
    Sub Main()
        Dim x As Decimal() = {4.1, 16, 0, -3.2, 12}
        Dim y As Decimal() = {4, 5.1, 6}
        Dim startindex As Integer = 3
        Dim sum As Decimal = 0
        Dim index As Integer
        Dim temp As Decimal()
        ReDim temp(x.Length + y.Length - 1)
 
 
        Array.Copy(x, 0, temp, 0, startindex)
        Array.Copy(y, 0, temp, startindex, y.Length)
        Array.Copy(x, startindex, temp, startindex + y.Length, x.Length - startindex)
 
        index = MAXID(temp)
 
        Console.Write(" НОВЫЙ МАССИВ: ")
        For i = 0 To temp.Length - 1
            If i < index Then sum += temp(i)
            Console.Write(" " & temp(i))
        Next
        Console.Write(" СУММА ДО МАКС: " & sum)
        Console.ReadKey()
 
    End Sub
 
    Private Function MAXID(temp As Decimal()) As Integer
        Dim MAX = temp(0)
        Dim indexM As Integer = 0
        For i = 0 To temp.Length - 1
            If temp(i) > MAX Then MAX = temp(i) : indexM = i
        Next
        Return indexM
    End Function
 
End Module