vb 下标越界 有人能帮我解决一下问题吗？

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Tag
Case "find"
Formclass3.Show
Case "modi"
If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
sssss = MsgBox("你还没有选择记录！", vbOKOnly + vbExclamation, "警告")
Exit Sub
Else
qxstr = Executeqx(2)
If qxstr = "readonly" Then
ss = MsgBox("对不起，你是只读用户不能修改记录，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
classmodi = True
Formclass1.Show
Formclass1.classload
Formclass1.ZOrder 0
End If
Case "del"
qxstr = Executeqx(2)
If qxstr = "readonly" T

vb 下标越界 有人能帮我解决一下问题吗？ 下标越界（VB） vb 下标越界 VB数组下标越界 VB 下标越界问题 vb 数组 下标越界 VB编程下标越界 vb下标越界问题???? VB问题：下标越界 大家帮我看看这段程序 vb下标越界问题,快考试了，请帮我看一下这段代码