Public Sub IsMatrixSimmetric()
    Dim aintData() As Integer
    Dim intI As Integer
    Dim intJ As Integer
    Dim bln As Boolean
    
    ReDim aintData( 1  To  3 ,  1  To  3 )
    
    aintData( 1 ,  1 ) =  1 
    aintData( 1 ,  2 ) =  2 
    aintData( 1 ,  3 ) =  3 
    aintData( 2 ,  1 ) =  2 
    aintData( 2 ,  2 ) =  1 
    aintData( 2 ,  3 ) =  2 
    aintData( 3 ,  1 ) =  3 
    aintData( 3 ,  2 ) =  2 
    aintData( 3 ,  3 ) =  1 
    
    Debug.Print "Исходный массив"
    
    For intI =  1  To  3 
        For intJ =  1  To  3 
            Debug.Print aintData(intI, intJ);
        Next
        Debug.Print ""
    Next
    
    Debug.Print "============================="

    bln = True

    For intI =  1  To  3 
        For intJ =  1  To  3 
            If aintData(intI, intJ) <> aintData(intJ, intI) Then
                bln = False
            End If
        Next
    Next
    
    If bln Then
        Debug.Print "Матрица симметрична."
    Else
        Debug.Print "Матрица не симметрична."
    End If
End Sub