If WorksheetFunction.CountIf(Worksheets("База").Columns("A"), TextBox1.Text) > 0 Then MsgBox "QQ"

'Кнопка Добавить
Private Sub B_Добавить_Click()
  If Me.TextBox1 = "" Then: MsgBox "Вы не ввели товар!", 48, "Ошибка":
      With Me
         Товар = .TextBox1.Text
     End With
      
     With Worksheets("База")
     If .Columns(1).Find(Товар, , xlValues, xlWhole) Is Nothing Then
          NextRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(NextRow, 1) = Me.TextBox1.Text
         Else
        MsgBox "Данный товар есть в базе данных.", vbCritical, "Сообщение": Exit Sub
        End If
     End With
              MsgBox "Товар успешно добавлено в базу данных!" & vbLf & "Строка в базе: " & NextRow
'        очистка поле текстбокса
  Me.TextBox1.Text = ""
Unload Me
End Sub