Как дождаться окончание таймера - VB

Формулировка задачи:

Вот возникла проблема на пустом месте... Нужно закрыть приложение по истечении определённого времени.Проблема:

Необходимо дождаться завершения работы таймера, прежде чем идти дальше по программе.

Тот вариант, который я написал грузит ЦП. Никак не могу сообразить. Может поможете. Вот наброски: Таймер:

Private Sub MainTimer_Timer()
   GlobTime = GlobTime - 1
   '...
   'какие-то действия
   '...
   If GlobTime = 0 Then Finished = True: MainTimer.Enabled = False
End Sub

Основная программа:

If (Событие) Then
   MainTimer.Interval = 1000: MainTimer.Enabled = True
   Do: DoEvents: Loop Until Finished = True                  '    <--проблема в загрузке ЦП
End If
 
Shell = "taskkill /F /IM cmd.exe"

API Sleep не поможет, т.к. я должен на форме указать, сколько времени осталось до закрытия.

Решение задачи: «Как дождаться окончание таймера»

textual
                            Листинг программы 
                        

                            If (Событие) Then
    GlobTime = 99 'или сколько???
   MainTimer.Interval = 1000: MainTimer.Enabled = True
   'Do: DoEvents: Loop Until Finished = True                  '    <--проблема в загрузке ЦП
End If
 
'Shell = "taskkill /F /IM cmd.exe"
                        