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]
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]