Передача значений в функцию - VB

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

Ребят подскажите, пожалуйста. У меня вечная беда с передачей данных в функции. Задача: имеем два масива x и y нужно сварганить третий массив,в котором объединяться x и y, так что б после 4 элемента массива X будет вставлен массив Y. Т.е. должно получиться массив Z=4.1,16,0,-3.2,4,5.1,6,12 Это просто.

Private Sub Command1_Click()
    Dim X(0 To 4) As Single, Y(0 To 2) As Single
    Dim Z(0 To 7) As Single
    Dim i As Integer, j As Integer
    
    X(0) = 4.1
    X(1) = 16
    X(2) = 0
    X(3) = -3.2
    X(4) = 12
    Y(0) = 4
    Y(1) = 5.1
    Y(2) = 6
    i = 0
    j = 0
    
    For i = 0 To 4
        If i = 4 Then
            For j = 0 To 2
                Z(i + j) = Y(j)
            Next j
        End If
        Z(i + j) = X(i)
    Next i
End Sub

А теперь в студию задание:

в результирующем массиве элементы одного массива помещены между теми элементами другого, номера которых тоже входные параметры

Весь мозг вспух пытаясь осознать задание. Остановился на варианте, что мне следует передать в функцию исходные массивы и номер элемента после которого надо вставит массив(т.е. 4). И из функции полчить итоговый массив.

Private Sub Command1_Click()
    Dim x(0 To 4) As Single, y(0 To 2) As Single
    Dim Z(0 To 7) As Single
    Dim i As Integer, j As Integer
    
    x(0) = 4.1
    x(1) = 16
    x(2) = 0
    x(3) = -3.2
    x(4) = 12
    y(0) = 4
    y(1) = 5.1
    y(2) = 6
    
    For i = 0 To 4
            For j = 0 To 2
                Z(i + j) = massiv(x(i), y(j), 4)
            Next j
        End If
        Z(i + j) = massiv(x(i), y(j), 4)
    Next i
    
End Sub
 
Function massiv(x() As Single, y(), m As Integer) As Single
  
End Function

Пробовал такой вариант - ругается на несовпадение типов и выделяет массив х

Решение задачи: «Передача значений в функцию»

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

                            Private Sub Command1_Click()
    Dim x(0 To 4) As Single, y(0 To 2) As Single
    Dim Z() As Single
    Dim i As Integer, j As Integer
    
    x(0) = 4.1
    x(1) = 16
    x(2) = 0
    x(3) = -3.2
    x(4) = 12
    y(0) = 4
    y(1) = 5.1
    y(2) = 6
    
    Z = massiv(x, y, 3)
    For i = 0 To UBound(Z)
      Print Z(i)
    Next
End Sub
 
Function massiv(x() As Single, y() As Single, m As Integer) As Single()
    Dim i As Long, k As Long
    ReDim v(0 To UBound(x) + UBound(y) + 1) As Single
    For i = 0 To m
      v(i) = x(i)
    Next
    For i = i To i + UBound(y)
      v(i) = y(k)
      k = k + 1
    Next
    k = m + 1
    For i = i To UBound(v)
      v(i) = x(k)
      k = k + 1
    Next
    massiv = v
End Function
                        