Code:
        Dim found As Boolean = False
        If TextBox1.Text = "" Then Exit Sub
        For x As Integer = 0 To ComboBox1.Items.Count - 1
            If ComboBox1.Items(x).ToString.Contains(TextBox1.Text) Then
                ComboBox1.SelectedIndex = x
                found = True
                Exit For
            End If
        Next