Here's some code for s.ssssssssssssss or mm:ss.ssssssssssssssss :-
Option Explicit
 
Private Declare Function GetFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (cyFrequency As Currency) As Long
Private Declare Function GetTickCount Lib "kernel32" Alias "QueryPerformanceCounter" (cyTickCount As Currency) As Long
 
Function MicroTimer() As Double
    Dim cyTicks As Currency
    Static cyFrequency As Currency
    If cyFrequency = 0 Then GetFrequency cyFrequency ' Get frequency
    GetTickCount cyTicks ' Get ticks
    If cyFrequency Then MicroTimer = cyTicks / cyFrequency ' Seconds
End Function
 
Function MinSec(dT As Double) As String
    Dim lnM As Long
    If dT > 60 Then
      lnM = dT \ 60
      MinSec = lnM & ":" & dT - 60 * lnM & " mm:ss"
     Else
      MinSec = dT & " s"
    End If
End Function
 
Sub Testing1()
    Dim dTime As Double
    dTime = MicroTimer()
    'do code here
    MsgBox MinSec(MicroTimer() - dTime)
End Sub
This is the sort of this we just have lying about