Dim indexinteger As Integer = 0
        Dim foundBoolean As Boolean = False
        Dim listcomparestring As String
        Dim textcomparestring As String

        If catalogsComboBox.Text = "" Then
            MessageBox.Show("Please enter an item to be added to the list", "Error")
            catalogsComboBox.Focus()

        Else

            Do While Not foundBoolean And indexinteger < catalogsComboBox.Items.Count
                listcomparestring = catalogsComboBox.Items(indexinteger).ToString().ToUpper
                textcomparestring = catalogsComboBox.Text.ToUpper
                If listcomparestring = textcomparestring Then
                    catalogsComboBox.SelectedIndex = indexinteger
                    foundBoolean = True
                    MessageBox.Show("Already in the list")
                 
               
                Else
                    indexinteger += 1
                   
                    End If

            Loop

            If catalogsComboBox.Items.Count = indexinteger Then
                catalogsComboBox.Items.Add(catalogsComboBox.Text)
                ClearFocus()
            End If
        End If