Исходный текст

Option Explicit
Call HasControl

'==============================================================================
' Проверить наличие элемента управления "ATTR_SOMETHING" на форме ввода "FORM_NEW_ALBUM".
'==============================================================================

Sub HasControl
  Dim ControlName, FormName, form, fCollection , ctrlCollection
  ControlName = "ATTR_SOMETHING"
  FormName = "FORM_NEW_ALBUM"
 
  'Получить ссылку на коллекцию форм ввода
  Set fCollection = ThisApplication.InputForms
  'Получить ссылу на форму ввода "FORM_NEW_ALBUM"
  Set form = fCollection.Item(FormName)
  'Получить ссылу на коллекцию элементов управления
  Set ctrlCollection = form.Controls  
 
  'Проверить наличие элемента управления на форме,
  'сообщить об этом пользователю
  If ctrlCollection.Has(ControlName) Then 
    MsgBox("Элемент управления присутствует на форме ввода.") 
  Else MsgBox("Элемент управления отсутствует на форме ввода.") 
  End If
End Sub