Создание блок схемы по коду - VB

Формулировка задачи:

Собственно имеется код:

Sub Ket()
Dim a ()
n=Cells (4,2).Vallue
Redim a(n)
For i=1 To n
a(i)=Cells (i+6,1).Vallue
Next i
k=0
For i=1 To n
If a(i) Mod 2=0 then k=k+2
Next i
Cells (9,2).Vallue=k
End Sub

По нему прошу "накалякать" блок схемку простую, как вам удобно хоть на листике или в паите От меня спасибо и как всегда + к карме Заранее благодарен!Контактные данные удалены

null

*поправил код*

Решение задачи: «Создание блок схемы по коду»

textual
                            Листинг программы 
                        
                            a(i)=Cells (i+6,1).Vallue