使用 TIME$ 函数
如:

dim NowTime as long 
dim OldTime as long 
NowTime=val(mid(Time$,4,2))

if abs(NowTime-OldTime)>=10 then
    OldTime=NowTIme
   '间隔10分钟做你的事
endif