tt = Timer
'Код
tt = Timer - tt
MsgBox "Все" & Chr(10) & "Время работы -  " & Format(tt / 24 / 60 / 60, "hh\ч  mm\м  ss\с")

Sub Test04()

'начало кода
Time_1_1 = Hour(Now())
Time_1_2 = Minute(Now())
Time_1_3 = Second(Now())

Application.Wait TimeSerial(Time_1_1, Time_1_2, Time_1_3 + 3)

'конец кода
Time_2_1 = Hour(Now())
Time_2_2 = Minute(Now())
Time_2_3 = Second(Now())

If Time_2_1 < Time_1_1 Then 'Если час финиша меньше часа старта...
      Time_2_1 = Time_2_1 + 60 'Час финиша увеличиваем на 60
      Time_2_2 = Time_2_2 - 1 'От минут финиша отнимаем 1
End If

If Time_2_2 < Time_1_2 Then 'Если минуты финиша меньше минут старта...
      Time_2_2 = Time_2_2 + 60 'К минутам финиша добавляем 60
      Time_2_3 = Time_2_3 - 1 'От секунд финиша отнимаем 1
End If

'От часов финиша отнимаем часы старта
Time_ = Time_ & Time_2_1 - Time_1_1 & " часов "
'От минут финиша отнимаем минуты старта
Time_ = Time_ & Time_2_2 - Time_1_2 & " минут "
'От секунд финиша отнимаем секунды старта
Time_ = Time_ & Time_2_3 - Time_1_3 & " секунд"

MsgBox ("Выполненно за " & Time_)

End Sub

Dim StartSec As Double
Dim StartDay As Long
Dim FinishSec As Double
Dim FinishDay As Long
Dim Control As Byte

Public Sub Main_Timer()

Select Case Control
     Case 0
         StartSec = Timer
         StartDay = DateDiff("d", "01.01.2015", Date)
     Case 1
         FinishSec = Timer
         FinishDay = DateDiff("d", "01.01.2015", Date)
         MsgBox Time_Calculation(StartSec, StartDay, FinishSec, FinishDay)
End Select

Control = 1 - Control

End Sub

Function Time_Calculation(StartX As Double, StartD As Long, FinishX As Double, FinishD As Long) As String

Dim Duration As Double
Dim Seconds
Dim Minutes
Dim Hours
Dim Days

If StartD <> FinishD Then
     FinishX = FinishX + (FinishD - StartD) * 86400
End If

Duration = FinishX - StartX
Days = Duration \ 86400

Duration = Duration - Days * 86400
Hours = Duration \ 3600
If Hours < 10 Then Hours = "0" & Hours

Duration = Duration - Hours * 3600
Minutes = Duration \ 60
If Minutes < 10 Then Minutes = "0" & Minutes

Seconds = Round(Duration - Minutes * 60, 0)
If Seconds < 10 Then Seconds = "0" & Seconds

Time_Calculation = Hours & " : " & Minutes & " : " & Seconds

If Days > 0 Then
     Time_Calculation = Time_Calculation & vbNewLine & "And " & Days & " days."
End If

End Function

Sub Time_Test()

Call Main_Timer 'Начало кода

'хххххххххххххххххххххххххххххххххххх
'ххх Всякие операции и вычисления ххх
'хххххххххххххххххххххххххххххххххххх

Call Main_Timer 'Конец кода

End Sub