Возник вопрос. Пишу vb скрипт выгрузки данных

set fso = CreateObject("Scripting.FileSystemObject")
Dim ts,ForAppending
ForAppending = 2
Set ts = fso.OpenTextFile("C:\cpcatal.txt", ForAppending, True)
set cc = CreateObject("V81.ComConnector")
set bl = cc.Connect("File=""C:\InfoBase"";Usr=Robot;PWD=pass")
Text = "ВЫБРАТЬ  Товар.Код КАК code, Товар.Наименование КАК name, Товар.Артикул КАК art, Товар.ЕдиницаДляОтчетов.Коэффициент КАК pack ИЗ Справочник.Номенклатура КАК Товар ГДЕ Товар.Родитель = &Parent"
set Query = bl.NewObject("Запрос")
Query.Text = Text
Query.SetParameter("Parent",bl.Catalog.Номенклатура.FindByCode("00034"))
set Result = Query.Execute()
set Choose = Result.Choose()
ts.Write "code" &chr(9) & "art" &chr(9) & "barcode" &chr(9)  & "name" &chr(9) & "pack" & chr(9) & "manfid" &chr(13) & chr(10)
Do While Choose.Next()
   ts.Write bl.String(Choose.code) &chr(9) & bl.String(Choose.art) & "" & chr(9) & bl.String(Choose.name) & chr(9) & bl.String(Choose.pack) &chr(9) & "96" & chr(13) & chr(10)
Loop
ts.Close
MsgBox "Записано"


Выдает ошибку "Недопустимый знак". Не распознает кириллицу. Каким образом мне установить параметр на запрос, именно получить ссылку на элемент справочника?