Dim v7 As Object
st = " /D" & """\\Natali\1sp\""" & " /N " & """Васек""" & " /P" & """30071988"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
DoEvents
If Not result = True Then
    MsgBox "Соединение с 1С не установлено!"
    Exit Sub
Else

    Set spr = v7.CreateObject("Справочник.Товары")
    If spr.НайтиПоКоду(8186, 0) = 1 Then
        MsgBox spr.GetAttrib("Наименование")
    Else
        MsgBox "Товар не найден!"
    End If
    Set Reg = v7.CreateObject("Регистр.ОстаткиТоваров")