Public globalTextString as String ' выносим текстовую переменную на уровень полей модуля






Function Склонение(Wr As String, vl As Long, Optional prn As String) As String 'Если prn=1 показатель выводится
' исправлено - 25.07.19: учитывается числа 11 - 19
'Wr - слово
On Error GoTo ErrorHandler

Dim vl1 As Long, vl2 As Integer, vl3 As Integer, i As Integer, vls As String
Dim iTempPath$, a
Dim NameDir As String
Dim a 
NameDir = ActiveWorkbook.Path
iTempPath = NameDir & "\declension.txt" 'адрес словаря

' -> ВОТ ЭТО ДОБАВЛЕНО 
If Len(globalTextString)>0 Then
   a = globalTextString 
Else
  'считываем словарь в переменную "а"
  a = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath).OpenasTextStream(1).ReadAll, vbNewLine)
End If
' <- КОНЕЦ ДОБАВЛЕННОГО БЛОКА

  vl1 = vl - Fix(vl / 10) * 10
   Select Case vl1
     Case 1: vl1 = 1
     Case 2 To 4: vl1 = 2
     Case 0, 5 To 9: vl1 = 3
   End Select

  If vl > 10 Then ' проверка - последние 2 цифры >10 And <20
     vl3 = vl - Fix(vl / 100) * 100
     If vl3 > 10 And vl3 < 20 Then vl1 = 3
  End If


' Исключения
   If LCase(Wr) = "пожары" Then Wr = "пожар"
   If LCase(Wr) = "гибель" Then Wr = "погибло"
   If LCase(Wr) = "травмы" Then Wr = "травмировано"
   If LCase(Wr) = "ребёнка" And vl > 10 Then Wr = "детей"
      
   vl2 = 0
   For i = 1 To UBound(a) + 1
     vl2 = vl2 + 1
     If a(i - 1) = LCase(Wr) Then GoTo wS
     If vl2 = 3 Then vl2 = 0
   Next
wS:
   vl2 = vl2 - vl1
   Склонение = a(i - 1 - vl2): a = "" ' Очистить переменную
   
   ' Провека регистра символов
       ' Если только первая буква прописная
       If (Mid(Wr, 1, 1) Like "[A-Z,А-Я]") Then Склонение = StrConv(Mid(Склонение, 1, 1), vbUpperCase) & Right(Склонение, Len(Склонение) - 1)
       ' Если первая и последняя буквы слова прописные, то все слово переводится в верхний регистр
       If (Mid(Wr, 1, 1) Like "[A-Z,А-Я]") And (Mid(Wr, Len(Wr), 1) Like "[A-Z,А-Я]") Then Склонение = StrConv(Склонение, vbUpperCase)
   ' Форматирование показателя - добавление пробела между разрядами
       vls = vl
       If vl > 999 Then vls = Left(vls, Len(vls) - 3) & Chr(160) & Right(vls, 3)
       If vl > 999999 Then vls = Left(vls, Len(vls) - 7) & Chr(160) & Right(vls, 7)
   ' Выводит показатель
       If prn = "0" Then prn = ""
       If Len(prn) > 0 Then Склонение = vls & Chr(160) & Склонение

Exit Function
ErrorHandler:
  On Error Resume Next
  Склонение = "[Ошибка! Проверьте введенное слово!]"
End Function

...
globalTextString = ""
...