Составление блок-схемы на vba

[ElenaGreen]

* Помогите пожалуйста составить блок-схему по данному решению задачи
Function Task(A() as integer) as integer *
* S%=0 * *
max%=A(1,1)
* *
for i%=1 to *Ubound(A,1) * *
* * for j%=1 to Ubound(A,2) * * * *
* *if i%=j% then S%=S%+A(i%,j%) * * *
* *if A(i%,j%) > max% then max%=A(i%,j%) * *
* * next j% * *
next i% * *
Task=S%-max%
End Function

Изначальное условие задачи -на сколько сумма элементов главной диагонали квадратной матрицы А n x n превышает максимальный элемент этой матрицы.*