search in listbox

i have textbox and listbox
i want to find value in listbox after typing it in textbox
i used this code

Private Sub TextBox1_Change()
Dim s As String, x
Dim i As Integer
s = TextBox7.Text
If TextBox7.Text = "" Then 
    Exit Sub
End If
x = Application.Index(ListBox1.List, 0,1)
If IsError(Application.Match(s & "*", x, 0)) Then
    MsgBox "No match"
    ListBox1.ListIndex = -1
    Exit Sub
End If
For i = 1 To UBound(x)
    If x(i,1) Like UCase(s) & "*" Then ListBox1.List(i-1).Selected = True
Next
End Sub

but i could nt find the next value
the code give me the first value only
help me please
sorry for my bad language