Bloomberg stops VBA Application.Ontime

Question

I have the following VBA subroutine which is calls itself every second:

Public Sub AllTheTime()
    iTimerSet = Now + TimeValue("00:00:01")
    Call run