После очистки ComboBox (Combo1.clear) не работает свойство Combo1.text - VB

Формулировка задачи:

Друзья, см. сабж.

Private Sub Combo1_Click()
 .....
 Combo1.Clear
 Combo1.Text="qqq"
 ......
End Sub

Во время работы макроса текст держится, а после End Sub исчезает.

Combo1.AddItem
Combo1.List()
Combo1.SelText
Combo1.Refresh

Не помогают ни в каких сочетаниях. Что делать?

Решение задачи: «После очистки ComboBox (Combo1.clear) не работает свойство Combo1.text»

textual
                            Листинг программы 
                        

                            Private Sub Combo1_Click()
Combo1.Clear
Combo1.Text="qqq"
End Sub
                        