'This function is used to simulate uniformly distributed random variables [0 1] excluding 0 and 1.

Public Function alea()
    Randomize

    alea = Rnd()
    If alea = 1 Then
        alea = 0.999999999999
    End If
    If alea = 0 Then
        alea = 1 - 0.999999999999
    End If
End Function