Private Sub PoissonRandomTest()
    ' Test the PoissonRandom function.

    Const lngMean = 5
    Const lngTries = 100000

    Dim alngRes(0 To lngMean * 2 + 1) As Long

    Dim lngCur As Long
    For lngCur = 1 To lngTries
        Dim lngTmp As Long
        lngTmp = PoissonRandom(lngMean)
        alngRes(lngTmp) = alngRes(lngTmp) + 1&
        If lngCur Mod 5000& = 0& Then Debug.Print Now & " " & lngCur
    Next lngCur

    For lngCur = LBound(alngRes) To UBound(alngRes)
        Debug.Print lngCur, alngRes(lngCur)
    Next lngCur
End Sub