Private Sub ChiVerify()
    ' Test the Chi function.

    Debug.Assert Chi(4, 7, 6) = 0
    Debug.Assert Chi(4, 6, 6) = 0.5
    Debug.Assert Chi(4, 5, 6) = 1
    Debug.Assert Chi(4, 4, 6) = 0.5
    Debug.Assert Chi(4, 3, 6) = 0

    Debug.Assert Chi(-6, -3, -4) = 0
    Debug.Assert Chi(-6, -4, -4) = 0.5
    Debug.Assert Chi(-6, -5, -4) = 1
    Debug.Assert Chi(-6, -6, -4) = 0.5
    Debug.Assert Chi(-6, -7, -4) = 0

    Debug.Assert IsNull(Chi(Null, 5, 6))
    Debug.Assert IsNull(Chi("Joe", 5, 6))
    Debug.Assert IsNull(Chi(4, Null, 6))
    Debug.Assert IsNull(Chi(4, "Joe", 6))
    Debug.Assert IsNull(Chi(4, 5, Null))
    Debug.Assert IsNull(Chi(4, 5, "Joe"))

End Sub