Sub Initialize
On Error Goto errhandler
exit sub
errhandler:
Msgbox "TextFile_Save 出错: " & Error$ & " on line " & Cstr(Erl)
Resume Next
End Sub
Sub Initialize
On Error Goto errhandler
exit sub
errhandler:
Msgbox "TextFile_Save 出错: " & Error$ & " on line " & Cstr(Erl)
Resume Next
End Sub