Private Sub SumOfYearsDigitsDepreciationVerify()
    'Verify that the SumOfYearsDigitsDepreciation function works correctly.

    Debug.Assert Approx(SumOfYearsDigitsDepreciation(1000000, 300000, 10, 1), 127272.727272727)
    Debug.Assert Approx(SumOfYearsDigitsDepreciation(1000000, 300000, 10, 2), 114545.454545455)
    Debug.Assert Approx(SumOfYearsDigitsDepreciation(1000000, 300000, 10, 3), 101818.181818182)
    Debug.Assert Approx(SumOfYearsDigitsDepreciation(1000000, 300000, 10, 9), 25454.5454545455)
    Debug.Assert Approx(SumOfYearsDigitsDepreciation(1000000, 300000, 10, 10), 12727.2727272727)

End Sub