传参的时候显示溢出

就爱拧你脸_C

我写了一个程序，报错溢出。打断点之后看到参数显示溢出，如下图：

我等5秒之后再看参数就显示正常了，如下图：

iWaitTime As Single
处理过：iWaitTime = Abs(Int(.Range("secWaitTime")))
函数是这样的：
Public Sub delay(T As Single)           
Dim time1, time2 As Long
    time1 = Timer
    time2 = 0
    Do
        DoEvents
        time2 = Timer - time1
        If time2 < 0 Then time2 = time2 + 86400     '86400=24*3600
    Loop While time2 < T
End Sub
有没有人知道为什么？怎么解决？在别的电脑没发现这个问题，就我的电脑会，还是偶尔会偶尔不会。而且在我的电脑，如果delay（0.5）也不会出问题。