検索結果 = ComboBox1.FindString("検索する文字列")
Dim i as Integer '入力した文字を検索して、Indexにセット i = ComboBox1.FindString(ComboBox1.Text) '検索された項目を選択状態にする ComboBox1.SelectedIndex = i