Create/Modify TIN?

Question

Программно - долгая история, да и церт с ним...

но почему хотя бы это окно не выходит???

Sub ExecuteTIN()
'Menu Create/Modify TIN 3DAnalyst_Create_Menu none

'{28BADA19-8DAC-11D4-A10F-00508BD60CB9}
'esri3DAnalystUI.DDDAnalystCreateMenu
  Dim pUID As New UID
  Dim pCmdItem As ICommandItem
  'pUID.Value = "{28BADA19-8DAC-11D4-A10F-00508BD60CB9}"
   pUID.Value = "esri3DAnalystUI.DDDAnalystCreateMenu"
  Set pCmdItem = Application.Document.CommandBars.Find(pUID)
  pCmdItem.Execute
End Sub

ошибки нет как и диалогового окна тоже!