Use "SystemErrhandle"

On Error Goto endErrhandle

 Exit Sub
endErrhandle:
 NewErr.LogToFile=0
 NewErr.ErrModule="XXXX.nsf中 XXXXX代理（XXXXXf方法）错误行：" +NewErr.SysErrLine
 Call NewErr.OutPutErrMsg("")

没有使用script库的捕捉错误方法

On Error GoTo Errhandle
........
........
Errhandle:    
   MessageBox "Error" & Str(Err) & ": " & Error$