Call Application.SetTimer(0,5*100)
if time>"23:30:40" then
call Application.KillTimer(0)
end if
End Sub

//學習下VBA里面的時間函數