Прекратить перемещение каретки на переднюю часть комбобокса

Question

Private Sub combobox1_TextChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
    ComboBox1.Items.Clear()
    For Each s As String In listOfString
        If s.Contains(ComboBox1.Text) Then
            ComboBox1.Items.Add(s)
        End If
    Next
    'ComboBox1.DroppedDown = True
End Sub

Когда я использую следующую подпрограмму, моя текстовая каретка продолжает возвращаться в начало списка при каждом вводе нового символа. Я хочу, чтобы он остался на месте и не двигался вперед. Как мне это сделать?