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

Option Explicit
Call GetClassifier

'==============================================================================
' Получить хендл классификатора и по нему снова классификатор
'==============================================================================
Sub GetClassifier()
    Dim SelClsfDlg, hndl, classif, RetVal

    ' Открываем окно выбора классификатора
    Set SelClsfDlg = ThisApplication.Dialogs.SelectClassifierDlg
    SelClsfDlg.Root = ThisApplication.Classifiers(0)
    RetVal = SelClsfDlg.Show

    If Not RetVal Then Exit Sub

    ' Если выбран хотя бы один классификатор
    hndl = SelClsfDlg.Classifier.Handle
    Set classif = ThisApplication.Utility.GetClassifierByHandle(hndl)
    MsgBox classif.Description  ' выводим описание полученного классификатора
End Sub
'==============================================================================