Sub testStrangeOverflowBug()
    Dim a As Double
    a = 1 / 86400 ' ezt simán eszi a rohadék
    a = 1 * (1 / (24 * 60 * 60)) ' ez tök ugyanaz, de egy Overflow Error a jutalmad
End Sub