如何記錄「執行時間」？

Sub Sb時間()
'開始時間
myTime = Time

'結束時間
myTime = Time - myTime
myMin = Minute(myTime)
mySec = Second(myTime)

MsgBox "使用時間" & myMin & "分" & mySec & "秒。"
End Sub


==============================================
以下展現另一種方式。
==============================================


Public Function Fun計算時間(myStartTime As Date, myEndTime As Date, Optional myMsgBox As Boolean = True) As String
Dim myTime As Date
myTime = myEndTime - myStartTime
myMin = Minute(myTime)
mySec = Second(myTime)
Fun計算時間 = "使用時間" & myMin & "分" & mySec & "秒。"

If myMsgBox = True Then
MsgBox "使用時間" & myMin & "分" & mySec & "秒。"
End If
End Function


Public Sub Sb計算時間()
'以下展現三種不同使用方式，前兩者結果是一樣的
Call Fun計算時間(Time, (Time + 1), True)

MsgBox Fun計算時間(Time, (Time + 1), False)

my花費時間 = Fun計算時間(Time, (Time + 1), False)

End Sub