在VB6中，可以使用如下语句处理程序错误，以避免程序突然中途退出。
1
On Error goto errHandler:
2'Input your code here 
3Exit Sub
4
5errHandler:
6 MsgBox Err.Description, vbCritical, "Error: "
On Error goto errHandler:2
'Input your code here 3
Exit Sub4
5
errHandler:6
MsgBox Err.Description, vbCritical, "Error: "