Storing Text Value From Cell To Array

[marreco]

Hi.
I have some cells with text, example:
Adapter for concrete water tank 150mm FG BSP - 2 "

I would store each text in each cell in a position of an array:

Dim arra (941) As String

arra (a) = Cells (line 2). Text

But the stored value is just "."
Could anyone help me?