Как выделит часть данных массива в другой массив - VB

Option Explicit
 
 Sub ChastDannyh(Arr As Variant, i&, u&)
    Dim f&, var, n&
    var = Arr
    ReDim Preserve var(u - i)
    For f = i To u
        var(n) = Arr(f)
        n = n + 1
    Next
    Arr = var
 End Sub
 
 
 Function prim()
    Dim s$, j$(), j1(), f&
    Const c = 100, pr$ = " "
    For f = 0 To c '-----------------Получение списка разных чисел
        s = s & pr & Fix(Rnd * c)
    Next
    j = Split(Mid$(s, 2))
    
    ChastDannyh j, 2, 4 'Отделить с второго по четвертый (= 3 индекса)
 End Function
 
Sub main()
     prim 'Запуск примера
End Sub