Private Sub DegreesToRadiansVerify()
    ' Test the DegreesToRadians function.

    Debug.Assert Approx(DegreesToRadians(-540), -9.42477796076938)
    Debug.Assert Approx(DegreesToRadians(-286.478897565412), -5)
    Debug.Assert Approx(DegreesToRadians(-270), -4.71238898038469)
    Debug.Assert Approx(DegreesToRadians(-57.2957795130823), -1)
    Debug.Assert Approx(DegreesToRadians(-45), -0.785398163397448)
    Debug.Assert DegreesToRadians(0) = 0
    Debug.Assert Approx(DegreesToRadians(45), 0.785398163397448)
    Debug.Assert Approx(DegreesToRadians(57.2957795130823), 1)
    Debug.Assert Approx(DegreesToRadians(270), 4.71238898038469)
    Debug.Assert Approx(DegreesToRadians(286.478897565412), 5)
    Debug.Assert Approx(DegreesToRadians(540), 9.42477796076938)

    Debug.Assert IsNull(DegreesToRadians(Null))
    Debug.Assert IsNull(DegreesToRadians("Joe"))

End Sub