4.1. Программа. Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной относительно главной диагонали - VB

Function chkSym(Matr() as integer) As Boolean
   n%=Ubound(Matr,1)
   chkSym=True
    for i%=1 to n%-1
        For j%=i%+1 to n%
             If Matr(i%,j%) <> Matr(j%,i%) then
                ChkSym=False
                Exit Function
             End if
        Next j%
    Next i%  
End Function