Option Explicit 'Option Compatible Sub Main Application._RootInit() _A2B_.CalledSub = "" Application.SysCmd(acSysCmdRemoveMeter) Dim a as variant, b as variant, c as variant, d as variant, i as integer, s as string,f as variant, h as variant, j as long, k as integer, l as integer, sFile As String Dim lTime1 as Date, lTime2 as Long lTime1=getsystemticks() ' TraceConsole() lTime2=getsystemticks debugprint lTime2 - lTime1 exit sub End Sub