求指导~~MSHFlexGrid控件一些运行报错的问题

Subscript out of range

一个删除“MSHFlexGrid”控件上单行列表数据的Command1的Click事件如下：

Private Sub Command1_Click()
Dim rSel As Long
With MSHFlexGrid
If .Rows = 0 Or .RowSel = 0 Then Exit Sub
rSel = .RowSel
If rSel <> .Rows - 1 Then

For i = rSel + 1 To .Rows - 1
For j = 1 To .Cols - 1
.TextMatrix(i - 1, j) = .TextMatrix(i, j)
Next
Next

End If

.Rows = .Rows - 1
End With
End Sub
以上语句触发后会导致：

另一个控件Command2的Click事件中出现报错，其中导致报错出现的语句包括以下：

MSHFlexGrid.TextMatrix(CountRow, "1") = Text4.Text
MSHFlexGrid.TextMatrix(CountRow, "2") = Combo1.Text
MSHFlexGrid.TextMatrix(CountRow, "3") = Combo3.Text
MSHFlexGrid.TextMatrix(CountRow, "4") = k
MSHFlexGrid.TextMatrix(CountRow, "5") = Combo8.Text
MSHFlexGrid.TextMatrix(CountRow, "6") = Combo2.Text
MSHFlexGrid.TextMatrix(CountRow, "7") = V
MSHFlexGrid.TextMatrix(CountRow, "8") = Combo7.Text
MSHFlexGrid.TextMatrix(CountRow, "9") = Combo4.Text
MSHFlexGrid.TextMatrix(CountRow, "10") = Combo5.Text
MSHFlexGrid.TextMatrix(CountRow, "11") = Combo6.Text
MSHFlexGrid.TextMatrix(CountRow, "12") = Text3.Text

触发Command1后触发Command2就会这样大家指导指导该怎么修改才对？

报个什么错？ err.message发来看看