F 
		
				
				
			
		fedotxxl
Добивает в каждом Sub'е писать 
	
	
	
	
		
 Можно ли раз и навсегда сказать, что при ошибках в LS - сделай мне это, при ошибках в Java - вот это?
				
			
		Код:
	
		On Error Goto ErrorLab 
....
Exit Sub
ErrorLab:
Msgbox "Error #" + Cstr(Err) + " in " + Cstr(Getthreadinfo(1)) + "(" + Cstr(Erl) + ") : " + Error, 48, "Ошибка исполнения"
Exit Sub
End Sub