не могу найти ошибку (массив) VB 6.0

Dim A As Integer, M As Byte, N As Byte
Private Sub Form1()
Randomise
End Sub
 
Private Sub Command1_Click()
Dim I As Byte, J As Byte, ST As String
 
M = InputBox("m= ", "количество строк", 3)
N = InputBox("n= ", "количество столбцов", 4)
ReDim A(1 To M, 1 To N) As Integer
ST = "9_": For J = 1 To N: ST& J & "_": Next
ST = ST & Chr(13) & Chr(10)
For I = 1 To M
For J = 1 To N
A(I, J) = Int(Rnd * 100): If A(I, J) < 10 Then ST = ST& '_'
ST = ST & Str(A(I, J)) & "_"
Next J
ST = ST & Chr(13) & CHR10
Next I
Text1.Text = ST
 
End Sub
 
 
Private Sub Command2_Click()
Dim I As Byte, J As Byte, S As Integer
Dim k As Byte, ST As String
Dim max As Integer
max = -32000: ST = ST + "A:суммы по стр" + Chr(13) + Chr(10)
For I = 1 To M
S = 0
For J = 1 To N
S = S + A(I, J)
Next J
If S > max Then max = S: k = 1
ST = ST & "PR_" & I & "_" & S & "_" & Chr(13) & Chr(10)
Next I
Text2.Text = ST & "номер наиб.=" & k
 
 
End Sub

Dim A() As Integer, M As Byte, N As Byte
Private Sub Command1_Click()
Dim I As Byte, J As Byte, ST As String
M = InputBox("m= ", "êîëè÷åñòâî ñòðîê", 3)
N = InputBox("n= ", "êîëè÷åñòâî ñòîëáöîâ", 4)
ReDim A(1 To M, 1 To N) As Integer
ST = "9_": For J = 1 To N: ST = J & "_": Next
ST = ST & vbNewLine
For I = 1 To M
For J = 1 To N
A(I, J) = Int(Rnd * 100): If A(I, J) < 10 Then ST = ST & "_"
ST = ST & Str(A(I, J)) & "_"
Next J
ST = ST & vbNewLine
Next I
Text1.Text = ST
End Sub
Private Sub Command2_Click()
Dim I As Byte, J As Byte, S As Integer
Dim k As Byte, ST As String
Dim max As Integer
max = -32000: ST = ST + "A:ñóììû ïî ñòð" + vbNewLine
For I = 1 To M
S = 0
For J = 1 To N
S = S + A(I, J)
Next J
If S > max Then max = S: k = 1
ST = ST & "PR_" & I & "_" & S & "_" & vbNewLine
Next I
Text2.Text = ST & "íîìåð íàèá.=" & k
 
 
End Sub
 
Private Sub Form_Load()
Randomize
 
End Sub