Выполнить код по истечении времени после нажатия на кнопку - VB

Function TM() As Double 'время в секундах с учетом перехода на новые сутки
Static D As Integer, OldT As Double
Dim t As Double
  t = Timer
  D = D - (t < OldT)
  OldT = t
  TM = t + D * 86400#
End Function
 
Public Sub doPause2(seconds As Double)
 Dim var_timeStart As Double
 var_timeStart = TM ' Время начала паузы
 While TM < var_timeStart + seconds
  DoEvents
 Wend
End Sub