Старт_программы = Now
    Конец_программы = Now
MsgBox$ _
                    "Работа программы по сортировке и переводе содержимого всех таблиц в нижний регистр завершена" & vbCrLf & _
                    "Начато: " & Старт_программы & vbCrLf & _
                               "Закончено: " & Конец_программы & vbCrLf & _
                                                             "Количество минут, затраченных на выполнение программы: " & DateDiff("n", Старт_программы, Конец_программы) & vbCrLf & _
                                                              vbOKOnly, "Внимание"