Dim i As Long, x As Single
Let i = 1
Let x = Rnd(-Time)

Do
    Let i = i + 1
    If Rnd = x Then
        Debug.Print i, x, Log(CDbl(i-1)) / Log(2)
        Stop
    End If
Loop