Calculate an azimuth in degrees

Code:
Private Function ReturnAzimuth(pt1 As MapObjects2.Point, _
                               pt2 As MapObjects2.Point) _
                               As Double

'-- Enter two points.  Function returns the azimuth
'-- in degrees from Point 1 to Point 2.

  Dim x1 As Double, y1 As Double
  Dim x2 As Double, y2 As Double

  x1 = pt1.X
  y1 = pt1.Y
  x2 = pt2.X
  y2 = pt2.Y

  Select Case True
    Case ((x1 = x2) And (y1 < y2))
      ReturnAzimuth = 0
    Case ((x1 = x2) And (y1 > y2))
      ReturnAzimuth = 180
    Case ((y1 = y2) And (x1 < x2))
      ReturnAzimuth = 90
    Case ((y1 = y2) And (x1 > x2))
      ReturnAzimuth = 270
    Case ((x1 < x2) And (y1 < y2))
      ReturnAzimuth = 180 * ((Atn(Abs(x1 - x2) / Abs(y1 - y2))) / 3.14159)
    Case ((x1 < x2) And (y1 > y2))
      ReturnAzimuth = 180 * ((Atn(Abs(y1 - y2) / Abs(x1 - x2))) / 3.14159) + 90
    Case ((x1 > x2) And (y1 > y2))
      ReturnAzimuth = 180 * ((Atn(Abs(x1 - x2) / Abs(y1 - y2))) / 3.14159) + 180
    Case ((x1 > x2) And (y1 < y2))
      ReturnAzimuth = 180 * ((Atn(Abs(y1 - y2) / Abs(x1 - x2))) / 3.14159) + 270
  End Select

End Function