MsflexGrid下越超界、、、、急急急

Me.MSFlexGrid1.Cols = Me.MSFlexGrid1.Cols + 1 '新加1列
 Me.MSFlexGrid1.TextMatrix(0, 7) = "序号" 
 For i = 1 To Me.MSFlexGrid1.Rows
  Me.MSFlexGrid1.TextMatrix(i, 7) = i
  Next i
 Me.MSFlexGrid1.ColAlignment(7) = 4 '列居中对齐
上面是本人的源码，目的是在MsflexGrid中添加一列，显示“序号”，可在第4句“Me.MSFlexGrid1.TextMatrix(i, 7) = i
”报错：实时错误381：下标越界！未找到具体的原因，麻烦各位达人给看看问题到底出现在哪？

VB code

'最后一行要用.rows-1来表达
For i = 1 To Me.MSFlexGrid1.Rows - 1
    Me.MSFlexGrid1.TextMatrix(i, 7) = i
Next i

非常感谢！