subscript out of range error when slicing array

[chirp08]

As stated on other posts, I'm a rookie and am now trying to learn how to slice arrays using the method shown here: https://usefulgyaan.wordpress.com/20...lication-index.

However, when using the test code shown below, I get a "subscript out of range" message for the MsgBox command. Can anyone tell my why arrtemp(1) will not return a value? I want to be able to slice off the columns of the arrtest array into a 1-dimensional array so that I can easily mind the max/min value of the column. TIA.

Sub TEST()
Dim arrtest(1 To 10, 1 To 10) As Long
Dim arrtemp() As Variant

For i = 1 To 10
    For j = 1 To 10
        arrtest(i, j) = j + j * 10
    Next j
Next i

arrtemp = Application.WorksheetFunction.Index(arrtest, 0, 1)

MsgBox (arrtemp(1))
End Sub