Private Sub Application_Quit()
  If TimerID <> 0 Then Call DeactivateTimer 'Turn off timer upon quitting **VERY IMPORTANT**
End Sub

Private Sub Application_Startup()
  MsgBox "Activating the Timer."
  Dim scanInt As LongLong
  scanInt = 10 ' **Note: Indicates how many minutes between scans.
  Call ActivateTimer(scanInt)
End Sub