求高手看看哪里出错了

Private Sub Command3_Click()
Dim a() As Double
i = MSFlexGrid1.Row
ReDim a(1 To i) As Double
For j = 1 To i
a(j) = MSFlexGrid1.TextMatrix(i, 1)
Next
Print a(j)
End Sub