dim a as double 

a=365 * 24 * 3600
پيغام خطا :
run time error '6
overflow
Year(Now) * 365 * 24 * 3600 + Day(Now) * 24 * 3600 + Hour(Now) * 3600 + Minute(Now) * 60 + Second(Now)

موفق باشید.