Включить второй массив в первый между K-м и (k+1)-м элементами первого

Sub InsArr(A() As Integer, B() As Integer, l As Integer, k As Integer)
      n% = UBound(B, 1)
      m% = UBound(A, 1)
      If (m% - l%) < n% Then
        MsgBox "Âñòàâêà íåâîçìîæíà!"
      Else
        i_from% = l%
        i_to% = l% + n%
        For j% = 1 To l% - k%
             A(i_to%) = A(i_from%)
             i_to% = i_to% - 1
             i_from% = i_from% - 1
        Next j%
        For i% = 1 To n
             A(k% + i%) = B(i%)
        Next i%
      End If
End Sub

Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Dst As Any, Src As Any, ByVal Length&)
 
Sub bb()
Dim M&, N&, k&, i&
'задание параметров
M = 15
N = 12
k = 8
'заполнение массивов
ReDim A%(1 To M), B%(1 To N)
For i = 1 To M
    A(i) = i
Next
For i = 1 To N
    B(i) = -i * 10
Next
    'размер элемента массива в байтах
i = VarPtr(A(2)) - VarPtr(A(1))
    'расширение массива А, чтобы он мог вместить массив В
ReDim Preserve A(1 To UBound(A) + UBound(B))
    'переписывание элементов массива А начиная с k+1 в конец
CopyMem A(k + UBound(B) + 1), A(k + 1), UBound(B) * i
    'переписывание массива В в А на место k+1
CopyMem A(k + 1), B(1), UBound(B) * i
    'распечатка массива А
For i = 1 To UBound(A)
    Debug.Print i, A(i)
Next
End Sub

Option Explicit
 
Private Sub Command1_Click()
    Dim Arr1() As Double, Arr2() As Double
    Dim m As Integer, n As Integer, k As Integer, i As Integer, j As Integer
    Me.Cls
    Randomize
m:  m = InputBox("M = ", , Int(Rnd * 20 + 1))
    n = InputBox("N = ", , Int(Rnd * 20 + 1))
    k = InputBox("K = ", , Int(Rnd * 5 + 1))
    If k >= m Then MsgBox " Ошибка!   K >= M ": GoTo m
    ReDim Arr1(1 To m), Arr2(1 To n)
    
    Print "   Первый массив"
    For i = 1 To m
        Arr1(i) = InputBox("Первый массив. Введите элемент №  " & i, , Int(Rnd * 10))
        Print Arr1(i);
    Next i
    Print
    
    Print
    Print "   Второй массив"
    For i = 1 To n
        Arr2(i) = InputBox("Второй массив. Введите элемент №  " & i, , Int(Rnd * 10))
        Print Arr2(i);
    Next i
    Print
    
    Print
    Print "K =" & k
    Print
    
    ReDim Preserve Arr1(1 To m + n)
    
    For i = m To k Step -1
         Arr1(i + n) = Arr1(i)
    Next i
    
    For i = k To k + n - 1
         Arr1(i) = Arr2((i - k) + 1)
    Next i
    
    Print "Результат "
    For i = 1 To m + n
       Print Arr1(i);
    Next i
    
 
End Sub

For i = 1 To m
arr1(i + n) = arr1(i + k)
arr1(i + k) = arr2(i)
Next i

Text1.Text=""
For i = 1 To m + n
 Text1.Text=Text1.Text & Arr1(i) & vbNewLine
 Next i

Text1.Text=join(Arr1,vbNewLine)