Настройка таймера обратного отсчёта

Dim k, TimeSek As Integer
Dim x As Single, Start As Single
Const i = 30, a = 1
 
Sub CommandButton2_Click()
 
   k = InputBox("Введите время занятия в минутах")
   x = k * 60
   Start = Timer
 
   
      Do While Timer < Start + x 'вот этот цикл
        If Timer = Start + i Then 
        TimeSek = (x - i) / 60
        Label1.Caption = "До конца занятия осталось: " & TimeSek & "минут"
        End If
      Loop
    
   If Timer = Start + x Then
   Label1.Caption = "Занятие окончено!"
   End If
   
End Sub

Option Explicit
 
Dim endTime As Date
 
Sub StartTimer()
    Dim minutes As Integer
    minutes = Val(InputBox("Введите время в минутах:", "Таймер"))
    
    If minutes > 0 Then
        endTime = Now + TimeSerial(0, minutes, 0)
        Application.OnTime Now + TimeSerial(0, 0, 30), "UpdateTimer"
    End If
End Sub
 
Sub UpdateTimer()
    Dim timeLeft As Date
    timeLeft = endTime - Now
    
    If timeLeft <= 0 Then
        MsgBox "Время истекло", vbInformation, "Таймер"
    Else
        MsgBox Format(timeLeft, "h:mm:ss"), vbInformation, "Таймер"
        Application.OnTime Now + TimeSerial(0, 0, 30), "UpdateTimer"
    End If
End Sub