Private Sub ChiTstVerify()
    ' Test the ChiTst function.

    Dim avarActual(), avarExpected()

    Array2D avarActual, 2, 3, True, Array(58, 35, 11, 25, 10, 23)
    Array2D avarExpected, 2, 3, True, Array(45.35, 47.65, 17.56, 18.44, 16.09, 16.91)

    Debug.Print ChiTst(avarActual, avarExpected)
End Sub