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

Print " Первый массив"
 For i = 1 To m
 Arr1(i) = Int(Rnd * 10)
 Print Arr1(i);
 Next i
 Print

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
    Picture1.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)
    Picture1.FontBold = True: Picture1.FontSize = 10
    Picture1.Print "   Первый массив"
    For i = 1 To m
        Arr1(i) = Int(Rnd * 10)
        Picture1.Print Arr1(i);
    Next i
    Picture1.Print
    
    Picture1.Print
    Picture1.Print "   Второй массив"
    For i = 1 To n
        Arr2(i) = Int(Rnd * 10)
        Picture1.Print Arr2(i);
    Next i
    Picture1.Print
    
    Picture1.Print
    Picture1.Print "K =" & k
    Picture1.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 + 1 To k + n
         Arr1(i) = Arr2((i - k))
    Next i
    
    Picture1.Print "Результат "
    For i = 1 To m + n
        If i > k And i <= k + n Then
          Picture1.ForeColor = vbRed
        Else
          Picture1.ForeColor = vbBlack
        End If
        Picture1.Print Arr1(i);
    Next i
    
 
End Sub