Сканер директорий и файлов pdf, который генерировал бы удобный отчет

Dim katalog As String
Dim now As String
Dim i As Integer
 
Private Sub Command1_Click()
Dim Files()
 
   katalog = InputBox("Ââåäèòå èìÿ ôàéëà")
 
   now = Dir(katalog & "\*.*", vbDirectory Or vbReadOnly Or vbHidden Or vbSystem)
    
   Do While now <> vbNullString
       ReDim Preserve Files(0 To i)
 
       Files(i) = now
       i = i + 1
 
       now = Dir()
   Loop
   
   If i <> 0 Then
       MsgBox Join(Files, vbCrLf), vbInformation
     Else: MsgBox "Ôàéëè íå íàéäåíû"
   End If
End Sub

Option Explicit
 
Private Sub Form_Load()
autoredraw=true
Dim a As String
Dim b As String
Dim c As Integer
Dim d As String
c = 0
b = "ert.pdf"
 
    Do While d <> "."
    c = c + 1
        a = Mid(b, Len(b) - c)
        d = Mid(a, 2, 1)
    Loop
    a = Mid(a, 2)
Print a
Print d
'    Select Case a
'        Case ".lnk": Print ".lnk"
'        Case ".exe": Print ".exe"
 
End Sub

a = mid$(b, instrrev(b, ".")+ 1)

Sub STATISIKA()
 
  Dim Folder As String
  Dim wb As String
  Dim i As Integer
  
    Dim AcroApp As Acrobat.CAcroApp
    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim numPages As Long
    Set AcroApp = CreateObject("AcroExch.App")
    Set Part1Document = CreateObject("AcroExch.PDDoc")
  'Показываем диалог выбора папки
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку, файлы в которой нужно обработать"
    .ButtonName = "Выбрать"
    .AllowMultiSelect = False
    If .Show Then Folder = .SelectedItems(1) Else Exit Sub
  End With
   i = i + 1
   Cells(i, 1) = "Содержимое папки " & Folder
   i = i + 1
        Cells(i, 1) = "Файл"
        Cells(i, 2) = "Страниц"
  'Начинаем читать файлы из папки
  wb = Dir(Folder & Application.PathSeparator & "*.pdf")
  While Len(wb) > 0
        i = i + 1
        Part1Document.Open (Folder & Application.PathSeparator & wb)
        numPages = Part1Document.GetNumPages()
        Part1Document.Close
            Cells(i, 1) = wb
            Cells(i, 2) = numPages
        wb = Dir 'читаем следующий файл
  Wend
    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
  
End Sub