' return whether there is a winner, given number of customers
    ' Done using random number generator
    Private Function isWinner(ByVal numC As Integer) As Boolean
        Const likelihoodOfWin As Double = 0.00001
        Dim likelihoodOfAWinner As Double
        likelihoodOfAWinner = 1 - ((1 - likelihoodOfWin) ^ numC)
        Dim rand As Double = Rnd()
        If rand < likelihoodOfAWinner Then
            Return True
        Else
            Return False
        End If
     end function