Sub t() Dim lngT As Long lngT = timeGetTime MsgBox "Привет" MsgBox "Привет. Между сообщения прошло " & timeGetTime - lngT & " ms" End Sub
' в начале (в разделе declarations) модуля Private Declare Function timeGetTime Lib "winmm.dll" () As Long