Dim pUID As New UID pUID = "esriGeoprocessingUI.ArcToolboxExtension" Dim pATBE As IArcToolboxExtension Set pATBE = Application.FindExtensionByCLSID(pUID) Dim pTool As IGPTool Set pTool = pAtb.GetToolbyNameString("ModelName") Dim pComm As IGPToolCommandHelper pComm.SetTool pTool pComm.Invoke Nothing