If YY = 0 And XX = 0 Then AtanI = 0 ElseIf YY = 0 And XX > 0 Then AtanI = 0 ElseIf YY = 0 And XX < 0 Then AtanI = 180 ElseIf YY > 0 Then AtanI = 90 - Atn(YY / XX) ElseIf YY < 0 Then AtanI = 270 - Atn(YY / XX) Else AtanI = 99999 End If ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++