Sub Test()
    
    Dim I
    Dim LookupTables
    Dim TableValues
    Dim TableParams
    Dim TableParamValue
    
    Set LookupTables = TCSApp.GetLookupTables
    
    If LookupTables.RunModuleForSelect("Выберите справочную таблицу", False) Then
        
        Set TableValues = LookupTables.Properties("TableValues").AsIDispatch
        I = TableValues.ShowModal("Таблица значений")
        Set TableValues = Nothing         
        
        Set TableParams = LookupTables.Properties("TableParams").AsIDispatch
        If TableParams.RunModuleForSelect("Выберите параметр таблицы", False) Then
            Set TableParamValue = TableParams.Properties("TableParamValue").AsIDispatch
            I = TableParamValue.ShowModal("Значения параметра таблицы")
            Set TableParamValue = Nothing         
        End If
        Set TableParams = Nothing         
    End If
    
    Set LookupTables = Nothing
End Sub