I would use Timer

[vba]
Dim nTime As Double

Private Sub UserForm_Initialize()
nTime = Timer
End Sub

Private Sub cmdStop_Click()


MsgBox Format(Timer - nTime, "0.0 secs")

End Sub
[/vba]