Нужно проверить код и принтскринить результат - VB

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