FlowChart - VBA Sub

[akindofmagic]

Hello

Here is a Sub, and its FlowChart. My question is: The FlowChart is correct?

Sub sinus()
Dim x As Double, dblSin As Double
   x = Application.InputBox("x =")
   For i = 0 To 50
       TmpSin = dblSin
       dblSin = dblSin + (-1) ^ i * (x ^ (2 * i + 1)) / (WorksheetFunction.Fact(2 * i + 1))
       If dblSin = TmpSin Then Exit For
       Debug.Print dblSin
   Next i
End Sub

 

[akindofmagic]

UP!