Определить является ли данная квадратная матрица симметричной относительно главной диагонали - VB

Sub main()
'матрицу слепите сами, если из Excel`я не подходит
a = Selection.Value
If Is_Sym(a) Then
  MsgBox "матрица симметричная"
Else
  MsgBox "матрица не симметричная"
End If
End Sub
 
Function Is_Sym(a) As Boolean
For r = LBound(a, 1) To UBound(a, 1)
  For c = LBound(a, 2) To UBound(a, 2)
    If a(r, c) <> a(c, r) Then Exit Function
  Next c
Next r
Is_Sym = True
End Function