Private Sub PiVerify()
    'Test the Pi property.

    Debug.Assert Approx(PI, Atn(1#) * 4)
    Debug.Assert Approx(PI, 3.14159265358979)
End Sub