Dim lDbl_StartTime As Double
Dim lDbl_EndTime As Double

	lDbl_StartTime = Now

	'' - - - - - - - - -
	'' Code here
	'' - - - - - - - - -

	'' Time taken
	lDbl_EndTime = Now

	MsgBox "Time taken: " & _
		Format(CDbl(lDbl_EndTime) - CDbl(lDbl_StartTime), "hh:mm:ss"), _
		vbInformation + vbOKOnly, "Project Title"