If TextBoxX1.Text.Trim.Length > 0 Then
            ListBoxControl1.SelectedIndex = ListBoxControl1.FindString(TextBoxX1.Text) '.Trim.ToUpper)
        Else
            ListBoxControl1.SelectedIndex = -1
End If