Im trying to get a vba code to follow this flowchart to decipher table 3. i have solved the r variable and am just left with the Theta value. I am supposed to finish the Function theta() vba code so that the function follows the flowchart and produces results in F7-F15

Function Radi () Dim x As Integer, y As Integer, r As Double For i = 1 To 9 x = Sheets ("PolarCoord").cells (i + 6, 3) y -Sheets ("PolarCoord") .Cells(i 6, 4) r(x ^ 2 + y ^ 2) ^ 0.5 Sheets ("PolarCoord") .Cells(i t 6, 5)- r Next i End Function Funct.ion Thet.a() Dim x As Tnteger, y As Tnteger Pi 3.141593 ' iteration is real ] ired to read from row 7 t row 15 or i = 1 To 9 xSheets (" PolarCoord") .Cells(i6, 3) y -Sheet.s ("PolarCoord") .Cells(i + 6, 4) ' follow the flowchart to identify the checks that need to be performed 'follow the flowchart to identify the operations to be performed based on TRUE/FA " Complete this section Next i 'end of iterations required to read all the elements in the table from row 7 to 1 End Punction =tan y>0 =0 tan