I have a macro that displays a time taken msgbox before End Sub. It works but I want it to return a Msgbox displaying No of Loops Per Minute. How do I do this?

Extracts of code below:

Near Start of Sub
    
Dim dtmStopWatch  as date
dtmStopWatch = Now()
At End of Sub
dtmStopWatch = Now() - dtmStopWatch

    Msgbox "Completed - time taken : " & Format(dtmStopWatch, "hh:mm:ss.00") & "  Loops= " & UBound(varArray)