Вывод значения Timer в MsgBox - Visual Basic .NET

Формулировка задачи:

Раньше, когда я юзал VB6, проблем небыло. Был код

Private Sub Command2_Click()
 Dim iTimer!
iTimer! = Timer
.
.   Код программы
.
MsgBox "Время выполнения макроса составило " & Format((Timer - iTimer!) / 86400, "Long Time"), vbExclamation, "" 
End Sub

и мне после окончания кода мне было хорошо, т.е. показывало время обработки кода. Сейчас же код ошибки Ошибка 1 Невозможно преобразовать значение типа "System.Windows.Forms.Timer" в "Single". ..... 374 19 ESV

Решение задачи: «Вывод значения Timer в MsgBox»

textual
                            Листинг программы 
                        
                            Sub Prog()
Dim tm As Long = Date.Now.Ticks
 
'ход программы
 
MsgBox(Format(New Date(Date.Now.Ticks - tm), "HH:mm:ss fffffff")) ' количество f  - от 0 до 7 знаков. Больше 7 - выдаст ошибку
end Sub