Combo Box

[Andi]

Здравствуйте. Уважаемые мастера помогите. Почему в msgboxе не отображается выбранный текст в Combo Boxe. Спасибо

Dim oDialog_podval As Object

Sub StartDialog_podval()
    BasicLibraries.LoadLibrary("Tools")
    oDialog_podval = LoadDialog("Standard", "Podval")
    cmbBox1_podval = oDialog_podval.GetControl("ComboBox1_podval")
     if cmbBox1_podval.getItemCount = 0 then
      cmbBox1_podval.addItem("123",1)
      cmbBox1_podval.addItem("456",2)
   end if
    oDialog_podval.Execute()
End Sub

Sub readDialog_podval()
   BasicLibraries.LoadLibrary("Tools")
   oDialog_podval = LoadDialog("Standard", "Podval")
   cmbBox1_podval = oDialog_podval.GetControl("ComboBox1_podval")
     
    msgbox   cmbBox1_podval.text
End Sub

[bigor]

Andi был бы файл, было бы проще искать ошибку.
Как я понимаю перед text нужно еще добавить model.

[Andi]

 Файл отправил