Sub test()

Dim v7 As Object
st = " /D" & """c:\1cv77\1sbdb\""" & " /N " & """Администратор""" & " /P" & """"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
DoEvents
If Not result Then
      MsgBox "Соединение с 1С не установлено!"
      Exit Sub
End If
        
      Dim spr As Object
      Set spr = v7.CreateObject("Справочник.Номенклатура")
      If spr.НайтиПоКоду("000000001", 0) = 1 Then
          Debug.Print spr.Наименование
            
          Dim reg As Object
          Set reg = v7.CreateObject("Регистр.ОстаткиТоваров")
      Else
          Debug.Print "Товар не найден!"
      End If

      Set reg = Nothing
      Set spr = Nothing

Set v7 = Nothing

End Sub