コンボboxを使ってサジェスト機能みたいなことをしたくて作ってみたんだけど、1文字目はうまくいくんだけど2文字目以降打つとリストの一番上が乗ってきて使い心地が良くないんだけど、どうしたらいいですか？
コンボboxのリストのみをクリアするやり方もいまいちわかりません。


j=2
Tname.rist=array()

set MstSht=worksheets(″マスター″)
str_word=controls(″Tname″&j).value

for i=2toMstSht.cells(rows.count,6).end(xlup).row

if instr(ucase(MstSht.cells(i,6).value),ucase(str_word))=1 then

controls(″Tname″&j).additem MstSht.cells(i,6).value

end if

next