Public Sub Button1_Click()
  Dim All() As String 'Объявление динамического массива найденных значений
  ReDim All(0) 'Установка размерности массива в 1 элемент
  
  Dim Column As Integer 'Столбец
  Column = 1 'Поиск в 1 столбце
  
  If (Len(Trim(Sheets(1).TextBox1.Text)) > 0) Then 'Проверяем TextBox1 на наличие текста
    For i = 1 To 1000 'Перебираем с 1 по 1000 строку
      If (InStr(Sheets(1).Cells(i, Column).Value, Sheets(1).TextBox1.Text) > 0) Then 'Проверяем ячейку на наличие текста
        All(UBound(All)) = i & "," & "A" 'Присваиваем значение последнему элементу массива
        
        ReDim Preserve All(UBound(All) + 1) 'Добавляем элемент в массив без удаления элементов
      End If
    Next
    
    Dim Text As String 'Переменная для вывода текста на экран
    
    For i = 0 To UBound(All) 'Обход всего массива найденных значений
      If (Len(Text) > 0) Then Text = Text & vbCrLf
      Text = Text & All(i)
    Next
    
    MsgBox Text 'Вывод сообщения с найденными позициями
  Else
    MsgBox ("Не введён текст для поиска") 'Вывод сообщения об ошибке
  End If
End Sub