Public Function Time_Expired(ByVal Interval As String, ByVal StartTime As Date, ByVal EndTime As Date) As Long
  Time_Expired = DateDiff(Interval, StartTime, EndTime)
End Function

Public Sub Main()
  Dim StartTime As Date, Finish As Date
  Dim I As Integer
  Const Seconds = "s"

  StartTime = Time
  Finish = Time
  Debug.Print Time
  Do While Time_Expired(Seconds, StartTime, Finish) < 10
    DoEvents
    Finish = Time
  Loop
  Debug.Print Time
End Sub