VBA Word How do I pass part of an array to a subroutine?

Question

I want to pass a part of an array to a subroutine!

Sub main()
    Dim i(10) As Byte
    Dim j As Integer

    For j = LBound(i) To UBound(i)
        i(j) = j