e cErrBase + lErr, App.EXEName &amp; "." &amp; sProc, sMsg
End Sub


Private Sub Class_Initialize()
   m_lBufferSize = 8192
End Sub

Private Sub Class_Terminate()
   On Error Resume Next ' don't throw in terminate
   freeBuffer
   CloseFile
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><tr class="footer"><td></td>
<td>
<p class="center"></p>
</td>
