Дана действительная квадратная матрица. Получить две квадратные матрицы - VBA

Sub bb()
    Const N = 5
    Dim i%, j%, A!(N, N), B!(N, N), C!(N, N)
    Debug.Print "[A]:"
    For i = 1 To N
        For j = 1 To N
            A(i, j) = -18.1 + i + j + Rnd * 30
            Debug.Print A(i, j);
        Next j
        Debug.Print
    Next i
    Debug.Print "[B]:"
    For i = 1 To N
        For j = 1 To N
            B(i, j) = IIf(j >= i, A(i, j), A(j, i))
            Debug.Print B(i, j);
        Next j
        Debug.Print
    Next i
    Debug.Print "[C]:"
    For i = 1 To N
        For j = 1 To N
            C(i, j) = IIf(j < i, A(i, j), -A(i, j))
            Debug.Print C(i, j);
        Next j
        Debug.Print
    Next i
End Sub