ник: час
Есть пример:
Устанавливаем драйвер от штриха
затем
'Dim o As Object
'Set o = CreateObject("AddIn.DrvFR")
'o.Password = "30"
'If o.ResultCode = 0 Then
'MsgBox " ПолучитьПараметрыОбмена"
'Else
'MsgBox o.ResultCodeDescription 'ОписаниеРезультата
'End If
'End Sub