Dim s As Symfonia
Set s = Application.CommandAp("GetCommon")
Dim d As CDict
Set d = New CDict
s.StructTree.Dicts.GetDictByShort "słownik testowy", d
Dim e As CElement
Set e = New CElement
s.StructTree.Dicts.AddElemByInstance d.Id, "nazwa elementu", "skrót elementu", True, "1", "opis elementu", e

dispatch xSlo = xFactory.NewObject( "CDict" )
dispatch xEle = xFactory.NewObject( "CElement" )   
xSlo.Load(8451) // to jest słownik, który chcę uzupełniać
dispatch s
s = Application.CommandAp("GetCommon")
dispatch d
d.create("SymfoniaCOM.CDict.10.1")
s.StructTree.Dicts.GetDictByShort( "spedycje", xSlo)
dispatch e
e.Create("SymfoniaCOM.CElement.10.1")
s.StructTree.Dicts.AddElemByInstance( xSlo, pozslo, pozslo, 1, "3", pozslo, xEle)