Maybe like:
<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br> <br><SPAN style="color:#00007F">Sub</SPAN> example()<br> <br><SPAN style="color:#00007F">Const</SPAN> STARTTIME <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Date</SPAN> = #6/10/2013 3:00:00 PM#<br><SPAN style="color:#00007F">Const</SPAN> ENDTIME <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Date</SPAN> = #6/10/2013 3:01:12 PM#<br> <br> MsgBox ElapsedTime(STARTTIME, ENDTIME)<br> <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br> <br><SPAN style="color:#00007F">Function</SPAN> ElapsedTime(<SPAN style="color:#00007F">ByVal</SPAN> Start <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Date</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> Finish <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Date</SPAN>) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br> ElapsedTime = ((Finish - Start) * 24 * 60 * 60)<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN></FONT>
Hope that helps,
Mark