Проблемы с поиском в TCsdnAxForm

Private Sub Command2_Click()        'Êíîïêà ÖÅÕ
Set PlantDep = TCSapp.PlantDepartments
If Not PlantDep Is Nothing Then
   If PlantDep.ShowModal("Âûáåðèòå öåõ") = 1 Then      'ÎÊ, öåõ âûáðàí
      Text5.Text = PlantDep.Properties("CEHA_NUMBER").DisplayText & " " & PlantDep.Properties("CEHA_SECTOR").DisplayText & " " & PlantDep.Properties("NAME").DisplayText
      id_ce = PlantDep.Properties("ID").DisplayText
   End If
End If
Set PlantDep = Nothing
End Sub

Private Sub Command1_Click()
Set ProfCode = TCSapp.ProfessionCodes
ProfCode.Properties("NAME").SortType = stAscending   'Ñîðòèðîâêà ïî Íàèìåíîâàíèþ
If ProfCode.RunModuleForSelect("Âûáåðèòå êîä ïðîôåññèè", False) Then
        id = ProfCode.Properties("ID").DisplayText
        text_(0).Text = ProfCode.Properties("NOTE").DisplayText & " " & ProfCode.Properties("NAME").DisplayText
End If
'Set ProfCode = Nothing
End Sub
 

               If CSDN_ConnectDLL.ConnectDll("ProjectForTest.MainClass", objDll, 1) Then
                res = objDll.Korr_frmDialog(TCSapp, TCSActiveModule)     ' îáð
               End If 

Public Function Korr_frmDialog(vTCSapp As Variant, vTCSActiveModule As Variant) As Variant
    Korr_frmDialog = Korr_Dialog_Rec.Start_Rec(vTCSapp, vTCSActiveModule)    'ÎÁÐ Êîð-êà ÒÏ ìåõîáð.
End Function

Dim TCSapp As CSDN.Tcs_Application
Dim TCSActiveModule As CSDN.GModule
...
Public Function Start_Rec(vTCSapp As Variant, vTCSActiveModule As Variant) As Variant
    Set TCSapp = vTCSapp
    Set TCSActiveModule = vTCSActiveModule
...
    Me.Show vbModal
...
End Function

Private Sub Command1_Click()
Set ProfCode = TCSapp.ProfessionCodes
ProfCode.Properties("NAME").SortType = stAscending   'Ñîðòèðîâêà ïî Íàèìåíîâàíèþ
If ProfCode.RunModuleForSelect("Âûáåðèòå êîä ïðîôåññèè", False) Then
        id = ProfCode.Properties("ID").DisplayText
        text_(0).Text = ProfCode.Properties("NOTE").DisplayText & " " & ProfCode.Properties("NAME").DisplayText
End If
'Set ProfCode = Nothing
End Sub

Dim TCSapp As CSDN.Tcs_Application
Dim TCSActiveModule As CSDN.GModule


Public Function Start_Rec(vTCSapp As Variant, vTCSActiveModule As Variant) As Variant
    Set TCSapp = vTCSapp
    Set TCSActiveModule = vTCSActiveModule
    
    Set ProfCode = TCSapp.ProfessionCodes
    ProfCode.Properties("NAME").SortType = stAscending
    If ProfCode.RunModuleForSelect("COOOL", False) Then
        id = ProfCode.Properties("ID").DisplayText
    End If
End Function

Sub Test12345                    
 Set  objDll = CreateObject( "TestProject.MainClass" )
 res = objDll.Start_Rec(TCSapp, TCSApp.NmkClasses)
 Set  objDll = Nothing 
End Sub