Private Sub BinomialRandomTest()
    ' Test the BinomialRandom function.

    Const lngTrials = 10
    Const lngTries = 10000

    Dim alngRes(0 To lngTrials) As Long

    Dim lngCur As Long
    For lngCur = 1 To lngTries
        Dim lngTmp As Long
        lngTmp = BinomialRandom(lngTrials, 0.5)
        alngRes(lngTmp) = alngRes(lngTmp) + 1&
        If lngCur Mod 2500& = 0& Then Debug.Print Now & " " & lngCur
    Next lngCur

    For lngCur = 0 To lngTrials
        Debug.Print lngCur, alngRes(lngCur)
    Next lngCur
End Sub