Private Function ModStdVerify()
    ' Test the ModStd function.

    Debug.Assert ModStd(5, 3) = 2
    Debug.Assert ModStd(4, 3) = 1
    Debug.Assert ModStd(3, 3) = 0
    Debug.Assert ModStd(2, 3) = 2
    Debug.Assert ModStd(1, 3) = 1
    Debug.Assert ModStd(0, 3) = 0
    Debug.Assert ModStd(-1, 3) = -1
    Debug.Assert ModStd(-2, 3) = -2
    Debug.Assert ModStd(-3, 3) = 0
    Debug.Assert ModStd(-4, 3) = -1
    Debug.Assert ModStd(-5, 3) = -2

    Debug.Assert ModStd(5, -3) = 2
    Debug.Assert ModStd(4, -3) = 1
    Debug.Assert ModStd(3, -3) = 0
    Debug.Assert ModStd(2, -3) = 2
    Debug.Assert ModStd(1, -3) = 1
    Debug.Assert ModStd(0, -3) = 0
    Debug.Assert ModStd(-1, -3) = -1
    Debug.Assert ModStd(-2, -3) = -2
    Debug.Assert ModStd(-3, -3) = 0
    Debug.Assert ModStd(-4, -3) = -1
    Debug.Assert ModStd(-5, -3) = -2

    Debug.Assert ModStd(2.5, 1.5) = 1
    Debug.Assert ModStd(2, 1.5) = 0.5
    Debug.Assert ModStd(1.5, 1.5) = 0
    Debug.Assert ModStd(1, 1.5) = 1
    Debug.Assert ModStd(0.5, 1.5) = 0.5
    Debug.Assert ModStd(0, 1.5) = 0
    Debug.Assert ModStd(-0.5, 1.5) = -0.5
    Debug.Assert ModStd(-1, 1.5) = -1
    Debug.Assert ModStd(-1.5, 1.5) = 0
    Debug.Assert ModStd(-2, 1.5) = -0.5
    Debug.Assert ModStd(-2.5, 1.5) = -1

    Debug.Assert IsNull(ModStd(Null, 3))
    Debug.Assert IsNull(ModStd("Joe", 3))
    Debug.Assert IsNull(ModStd(3, Null))
    Debug.Assert IsNull(ModStd(3, "Joe"))

End Function