8.х Подключиться к 1С из Excel и вытащить данные

Сделал скрипт на VBS по аналогии как в справке 1с, он не работет, что не так подскажите.

Код:

Private Sub CommandButton1_Click()

Dim cntr As Object
Dim trade As Object 
Dim Элемент As Object
Set cntr = CreateObject("V81.COMConnector")
Set trade = cntr.Connect("File=""\\192.168.13.2\bazi\1cv8_base\Pik""; Usr=""Robot"";")
Set СправочникКонтрагентов = trade.Справочники.Контрагенты
Set ГруппаКонтрагентов = СправочникКонтрагентов.СоздатьГруппу()
ГруппаКонтрагентов.Наименование = "***** Экспорт из Excel ******"
ГруппаКонтрагентов.Записать
N = 100   'Количество строк в документе
For Count = 1 To N
Set Элемент = Справочники.Контрагенты.СоздатьЭлемент()

Элемент.НаименованиеПолное = Application.Cells(Count, 2).Value
Элемент.Родитель = ГруппаКонтрагентов.Ссылка
Элемент.Записать
Next Count

End Sub

здесь собака порылась :unsure:

надо:

Set Элемент = СправочникКонтрагентов.СоздатьЭлемент()
:smile:

Все разобрался.
Вообще ерись написал )))