status bar but it could easily be directed to a msgbox.
Place this code where you want to start timing from
Dim begintime As New NotesDateTime("")
Dim endtime As New NotesDateTime("")
Dim diff As Long
Place this code at the end of your process
diff = endtime.TimeDifference(begintime)
Print " Elapsed time (hh:mm:ss) : "Format(Timenumber(0,0,diff),"h:mm:ss")