Display Qty per Minute (Working with Dates & Times)

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)

That code merely displays the START time (and loops), not the elapsed time.
You'd need

Format(Now() - dtmStopWatch, "hh:mm:ss.00")

for the elapsed time.

Now that is handing fractions of a day and you'd have to convert that to minutes (multiply by 24 x 60) and then divide loops by the result.

*24*60 = just what I wanted to know. Thanks! +1

P.S. My code was already returning the elapsed time. Check the first line of "At End of Sub".