'Функция возвращает максимальный порядковый номер из имен файлов вида NNNNNNNN.txt в текущем каталоге
'Если флаг add равен .T., то дополняет результат нулями слева.
'Если в папке назначения имеется файл 99999999.txt, то выводит предупреждение и возвращает слово "overflow"

Public Function NextNum(add As Boolean) As String
Path = ThisWorkbook.Path + "\*.txt"
cName$ = Dir(Path)
nMax& = 0
While Len(cName) > 0
  If Len(Left(cName, InStr(cName, ".") - 1)) = 8 Then nMax = WorksheetFunction.Max(nMax, Val(cName))
  cName = Dir
Wend
nMax = nMax + 1
s = Right(Str(nMax), Len(Str(nMax)) - 1)
If Len(s) > 8 Then
  s = "Overflow"
  MsgBox ("Папка переполнена!" & vbCrLf & "Удалите все файлы с расширением .txt и сформируйте отчёт заново")
End If
num = String(8 - Len(s), "0") + s
If add Then NextNum = num Else NextNum = s
End Function