Поменять местами N первых с группой элементов ,нач. с №K - VB

Option Explicit
Dim n As Integer, m As Integer, k As Integer, i As Integer, t As Integer
Dim mas() As Integer
Dim res As String
 
Private Sub Form_Load()
    On Error Resume Next
    Randomize
    res = "Old: "
    n = InputBox("Ââåäèòå n")
    m = InputBox("Ââåäèòå m")
    k = InputBox("Ââåäèòå k")
    For i = 1 To n
        ReDim Preserve mas(i)
        mas(i) = 100 * Rnd()
        res = res + CStr(mas(i)) + " "
    Next i
    res = res + vbCrLf + "New: "
    For i = 1 To m
        t = mas(i)
        mas(i) = mas(i + k)
        mas(i + k) = t
    Next i
    For i = 1 To n
        res = res + CStr(mas(i)) + " "
    Next i
    MsgBox res
    End
End Sub