Occhi, il For deve andare da 0 (zero) a ComboBox1.Items.Count - 1.

Inoltre, se vuoi un consiglio, sostituisci questo
codice:
Try
   ComboBox1.SelectedIndex = i
Catch
End Try
Dim str As String = ComboBox1.Text
If str.Contains(TextBox1.Text) Then
Con

codice:
If ComboBox1.Items(i).ToString().Contains(TextBox1.Text) Then
Fa la stessa identica cosa, ma è più pulito e (se non sbaglio) anche più veloce...



P.S.: Non mi ricordo se è ComboBox1.Items o .Item e ora non ho la possibilità di controllare. Usa quello che non dà errori di compilazione...