Sposta la
ReDim numeri(elems)

e la metti subito dopo


elems = TextBoxArray.Text - 1