Diagram poteka pomoč

Pozdravljeni!

Rabila bi pomoč pri risanju diagrama poteka.

Primer imam v programu Excel VBA in je že rešen. Narisati pa moram diagram poteka.

Če bi mi kdo lahko pomagal bi lepo prosila


Sub Simpson()
Worksheets(ActiveSheet.Name).Activate

a = ActiveSheet.Cells(3, 2)
b = ActiveSheet.Cells(4, 2)
n = ActiveSheet.Cells(5, 2)

Delta = (b - a) / n
x = a
integral = 0
For i = 1 To n Step 2
term = y(x) + 4 * y(x + Delta) + y(x + 2 * Delta)
integral = integral + term
x = x + 2 * Delta
Next i

integral = integral * Delta / 3
ActiveSheet.Cells(7, 2) = integral

End Sub
Function y(x)
y = x * Sin(x)

End Function