質問があります。
以下のようなソースで、
コンボボックスに文字を入力し、入力値を自コンボボックスのリストと比較して、
存在すればコンボボックスのインデックスに設定したいのですが、
Combo1_Change　のあと　Command1_Click　を行うと、
リストインデックスが-1になってしまいます。
どのようにしたら書き換わるのでしょうか？
（XP ＋ VB6.0sp5）

Private Sub Combo1_Change()
Dim i As Integer
Dim strTmp As String
strTmp = Me.Combo1.Text

For i = 0 To Me.Combo1.ListCount - 1
If strTmp = Me.Combo1.List(i) Then
Me.Combo1.ListIndex = i
Call MsgBox("現在のインデックス = " & CStr(Me.Combo1.ListIndex))
Exit Sub
End If
Next i
End Sub

Private Sub Command1_Click()
Call MsgBox("現在のインデックス = " & CStr(Me.Combo1.ListIndex))
End Sub