ник: час
В начале функции
on error goto Na_fig
.........................
....................
.........................
Exit Function
Na_fig:
msgbox "Отсутствует связь с серваком!"
хатя вряд ли поможет от зависания.
-----------------------------------------
Вынести в отдельный модуль
Закрыть форму и передать управление в модуль
Publick sub My_Connect
If Not xmldoc.Load(url_request) = True Then
MsgBox ("Документ не загружен")
Exit Function
end sub
и закрывать все форму - пытаясь подключиться.