Dim IshodniyText() As String
  Dim iSlovo As String
  Dim CharacterBukv As String
  Dim i, s As Long
  Dim Stolbec_slova As String
  Dim Stolbec_texta, Stroka_shapki As Integer
   
  i_n = Cells(Rows.Count, 3).End(xlUp).Row
  Stolbec_texta = Application.InputBox("Укажите номер столбца, в котором изучаемый текст", "Столбец текста", "1")
  Stolbec_slova = Application.InputBox("Укажите столбец, в который необходимо занести нужное вам слово (указать название шапки столбца)" & _
  Chr(13) & "Внимание, обязательно укажите в шапке название столбца!!!", "Столбец", Type:=8)
   
   
' Application.InputBox("Укажите номер столбца, в котором находятся наименования файлов", "Номер столбца", _
"8")
  Stroka_shapki = InputBox("Укажите номер строки, в которой находится шапка вашей таблицы", "Номер строки", "2")
  j_n = Cells(Stroka_shapki, Columns.Count).End(xlToLeft).Column
  For j = 1 To j_n
   If Cells(Stroka_shapki, j) = Stolbec_slova Then
     Exit For
   End If
  Next j
  j_stolbec = j
  ReDim IshodniyText(i_n)
  ReDim Slova_text(i_n, 1)
For i = 1 To i_n
     MsgBox (i & " " & Stolbec_texta & " " & Cells(1, 1))
     MsgBox (i & " " & Stolbec_texta & " " & Cells(i, Stolbec_texta))
     IshodniyText(i) = Cells(i, Stolbec_texta)
.......