Ошибка в интерфейсе - BalanceDocuments.DbTree

Sub FormMacro_ViewTree(TCSActiveModule)
  Set Node = TCSActiveModule.DbTree.RootNodes.Item(0)
  Set Strs = TcsApp.CreateStrings
  For I=0 To Node.Count-1
    K = Strs.Add(Node.item(I).Text)
  Next
  K = Strs.ShowModal("Дерево", 0, 0)
  Set Strs = Nothing
  Set Node = Nothing
End Sub