Проверить, является ли равными между собой по сумме все строки матрицы - VB

Формулировка задачи:

вобщем код написал, осталось сравнить все sumStr(i) and sumStolb(i) and subDiag подскажите как, а то тупняк условие задачи было: дан массив 3*3, проверить явл. ли равными между собой по сумме все строки,столбцы и главная диагональ

Option Explicit
Dim a(1 To 3, 1 To 3) As Integer
Dim i As Integer
Dim j As Integer
Dim sumStr() As Integer
Dim sumStolb() As Integer
Dim sumDiag As Integer

Private Sub Command1_Click()
 ReDim sumStr(1 To 3)
 ReDim sumStolb(1 To 3)
sumDiag = 0
Label1.Caption = ""
Label3.Caption = ""
Randomize
'mas
 For i = 1 To 3
 For j = 1 To 3
 a(i, j) = Int(Rnd * 10)
 Label1.Caption = Label1.Caption & Str(a(i, j)) & " "
 Next j
 Label1.Caption = Label1.Caption & vbLf & " "
 Next i
 'stroki
 For i = 1 To 3
 For j = 1 To 3
 sumStr(i) = sumStr(i) + a(i, j)
 Next j
 'Label3.Caption = Label3.Caption & Str(sumStr(i))
 Next i
'stolbci
For j = 1 To 3
For i = 1 To 3
  sumStolb(j) = sumStolb(j) + a(i, j)
 Next i
' Label3.Caption = Label3.Caption & Str(sumStolb(j))
 Next j
 'diagonal
 For i = 1 To 3
sumDiag = sumDiag + a(i, i)
 Next i
 ' Label3.Caption = Label3.Caption & Str(sumDiag)

End Sub

Решение задачи: «Проверить, является ли равными между собой по сумме все строки матрицы»

textual
                            Листинг программы 
                        

                                Dim a(1 To 3, 1 To 3) As Integer
    Dim i As Integer, j As Integer
    Dim sum As Integer
    Dim vseRavny As Boolean
    Dim temp  As Integer
     Private Sub Command1_Click()
     sum = 0: temp = 0: vseRavny = True: Label1.Caption = "": Label3.Caption = ""
     Randomize
     'mas
     For i = 1 To 3
        For j = 1 To 3
            a(i, j) = Int(Rnd * 2 + 1)
             Label1.Caption = Label1.Caption & Str(a(i, j)) & " "
        Next j
        Label1.Caption = Label1.Caption & vbLf & " "
        temp = temp + a(1, i)
     Next i
     Print temp
     'stroki
    For i = 1 To 3
        sum = 0
        For j = 1 To 3
           sum = sum + a(i, j)
        Next j
        If temp <> sum Then vseRavny = False
    Next i
    'stolbci
    For j = 1 To 3
        sum = 0
        For i = 1 To 3
            sum = sum + a(i, j)
        Next i
        If temp <> sum Then vseRavny = False
    Next j
    'diagonal
    sum = 0
    For i = 1 To 3
      sum = sum + a(i, i)
    Next
    If temp <> sum Then vseRavny = False
    If vseRavny Then MsgBox "Все суммы равны !"
    End Sub
                        