VB6のコンボボックスについて質問です。

ドロップダウンコンボでリストから何かを選択したら、選択したものを
リストの一番上に移動するというのをやりたくて以下のようなコードを書いたのですが、
何故か選択した後、コンボボックスの内容表示( .Text )が空になってしまいます。

2〜3で入れ替えを行い、2で消えてしまった表示を4で補完するという流れなのですが
ステップ実行してみると、4が実行されたときにちゃんと選択文字列がコンボボックスに
表示されるのですが、End Subが実行されると何故か消えてしまいます。

原因と解決方法を教えてください。

Private Sub Combo1_Click()
　　Dim buf As String

　　'1 選択項目の文字列を保持
　　buf = Combo1.Text

　　'2 選択項目を削除
　　Combo1.RemoveItem Combo1.ListIndex　　　'ここで一端コンボボックスの内容表示は空になる

　　'3 一番上に追加
　　Combo1.AddItem buf, 0

　　'4 選択項目の文字列を表示
　　Combo1.Text = buf　　　　　　　　　　　　　　　' ステップ実行ではここでちゃんと表示される
End Sub 　　　　　　　　　　　　　　　　　　　　　　　' 何故かここで再度表示が消える

Private Sub Form_Load()
　　Combo1.AddItem "aaa": Combo1.AddItem "bbb": Combo1.AddItem "ccc"
End Sub