vba中老是溢出

vba中总是溢出
最近在做excel的宏,
Dim a
a=400*3600
会有溢出的错误  ,而我要做的会经常处理这种数据,我想处理excel中的时间11:23:23 ,每次减去一秒钟,用 宏处理的时候我想把时间换算成秒再相减,而数值大的时候就会出现溢出错误,所以想请问各路大神帮忙处理,用long类型不行,double会有误差,所以我也不知道如何处理的,求解答
新来的小妹请大家多多关照
------解决思路----------------------
Sub Test()
    Dim dt As Date
    Dim i As Long
    
    dt = "11:23:23"
    
    For i = 1 To 20
        dt = DateAdd("s", -1, dt) '减一秒'
        Debug.Print dt
    Next
End Sub

------解决思路----------------------
用long不是不行,问题是你没用对:
1、a=400*clng(3600)
2、
dim a as long,b as long
b=3600
a=400*b

你再试试:a=400*86400

体会体会........vba中老是溢出