How to create one dimentional array

[JOAO12]

Hello,

The Range("A10:A25") is filled with numbers (1 to 16) and I need to create one dimentional array.

What should I correct in the following code in order to make it run correctly?

Dim arr(15) as Integer

arr=Application.Transpose(Range("A10:A25"))
MsgBox arr(0)

Thanks.