Написать программу, которая проверяет, является ли введённая квадратная матрица "магическим" квадратом - VB

Function CheckMagic(A() As integer) As Boolean
      n%=Ubound(A,1)
      S%=0
      For i%=1 to n%
           S%=S%+A(i%,i%)
      Next i%
      For i%=1 to n% ' суммы строк
           Q%=0
           For i%=1 to n%
                Q%=Q%+A(i%,j%)
           Next j%
           if S% <> Q% then Exit Function
      Next i%        
       For i%=1 to n% ' суммы столбцов
           Q%=0
           For i%=1 to n%
                Q%=Q%+A(j%,i%)
           Next j%
           if S% <> Q% then Exit Function
      Next i%        
      Q%=0
      For i%=1 to n%
           S%=S%+A(i%,n%-i%+1)
      Next i%
      if S% <> Q% then Exit Function
      CheckMagic=True
End function