Проблема Не для идиотов.

[[Epta] Хлебная крошкa Енот]

В общем пасаны дело тут такое. Нужно составить блок-схему по алгоритму программки VBA.
вот сам код програмки, выщитывающей стоимость в ехел.
Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
End If
i = i + 1
Loop
Range("F2") = "Стоимость"
End Sub

Если найдутся люди, которые шарят и сделают блок схему, то буду благодарен. с меня море :devyatos::devyatos::devyatos::devyatos::devyatos: :devyatos::devyatos::devyatos::devyatos: