Dim xmlDoc
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")

    xmlDoc.async = False
    xml_name = "C:\1c_reglament\nike_out.xml"
    If xmlDoc.Load(xml_name) Then

        ServName = xmlDoc.getElementsByTagName("ServName").Item(0).Text
        BaseName = xmlDoc.getElementsByTagName("BaseName").Item(0).Text
        UserName = xmlDoc.getElementsByTagName("UserName").Item(0).Text
        Password = xmlDoc.getElementsByTagName("Password").Item(0).Text
        ObrCode = xmlDoc.getElementsByTagName("ObrCode").Item(0).Text

        ConnectionString = "Srvr=""" & ServName & """;Ref=""" & BaseName & """;Usr=""" & UserName & """;Pwd=""" & Password & """;"

        ' открываю 1С
        Set V82App = CreateObject("V82.Application")
        V82App.Connect (ConnectionString)

        ' нахожу обработку
        REM Set sprobr = V82App.Справочники.ВнешниеОбработки
        REM Set ЭлементСправочника = sprobr.НайтиПоКоду(ObrCode)
        REM Set ОбработкаСсылка = ЭлементСправочника.ПолучитьОбъект()
        REM Set ДвоичныеДанные = ОбработкаСсылка.ХранилищеВнешнейОбработки.Получить()

        ' сохраняю обработку в файл
        REM TempFileName = V82App.ПолучитьИмяВременногоФайла()
        REM ДвоичныеДанные.Записать (TempFileName)
        REM Set form = V82App.ВнешниеОбработки.ПолучитьФорму(TempFileName)
        REM form.Открыть

    Else

        ' Вывожу сообщение об ошибке - не удалось прочитать файл настроек
        Dim strErrText
        ' Obtain the ParseError object
        Set xPE = xmlDoc.parseError
        With xPE
            strErrText = "Your XML Document failed to load" & _
                         "due the following error." & vbCrLf & _
                         "Error #: " & .ErrorCode & ": " & xPE.reason & _
                         "Line #: " & .Line & vbCrLf & _
                         "Line Position: " & .linepos & vbCrLf & _
                         "Position In File: " & .filepos & vbCrLf & _
                         "Source Text: " & .srcText & vbCrLf & _
                         "Document URL: " & .URL
        End With

        MsgBox (strErrText)

    End If

Res=MsgBox(Text,vbOkCancel+vbInformation+vbDefaultButton2,Title)
' Определяем, какая из кнопок была нажата в диалоговом окне
If Res=vbOk Then
  MsgBox "Нажата кнопка OK"
Else
    MsgBox "Нажата кнопка Отмена"
End If