Работа с пятью файлами Excel

Private Sub Command1_Click()
    Dim st, fn As String, xlApp As Object, xlWb() As Object, xlSh() As Object
    Dim i As Integer, dr As String, n As Integer
    CommonDialog1.Filter = "Файлы Excel|*.xls*"
    CommonDialog1.Flags = cdlOFNAllowMultiselect ' множественный выбор файлов, через Ctrl
    CommonDialog1.InitDir = App.Path
    CommonDialog1.ShowOpen
    fn = CommonDialog1.FileName
    If fn <> "" Then
       st = Split(fn, "\")
       n = UBound(st)
       dr = Replace(fn, st(n), "") ' папка с файлами
       st = Split(Trim$(st(n)))    ' массив имён файлов
       n = UBound(st)
    Else
       Exit Sub
    End If
    
    Set xlApp = CreateObject("Excel.Application")     ' создаём объект
    xlApp.Visible = False
    ReDim xlWb(n), xlSh(n)
    
    For i = 0 To n
       Set xlWb(i) = xlApp.Workbooks.open(dr & st(i)) ' открываем книги
       Set xlSh(i) = xlWb(i).Sheets(1)                ' первый лист каждой книги
    Next i
    
   ' в последнюю книгу что-то записываем в ячейку "А1" первого листа
    xlSh(n).cells(1, 1) = InputBox("Запись в книгу" & vbCrLf & """" & st(n) & """", "Запись в книгу ", "Мои данные")
    
    For i = 0 To n
       MsgBox xlSh(i).cells(1, 1) 'читаем из ячейки "А1" первого листа каждой книги
    Next i
    
    For i = 0 To n - 1
       xlWb(i).Close False  ' закрываем книги без сохранения (кроме последней)
    Next i
    
    xlWb(n).Close True ' закрываем последнюю книгу с сохранением
    
    xlApp.Quit ' закрываем приложение
    
End Sub

.Item("Текст ключа")

        If Not oUL_Dp.exists(t) Then 'если ещё нет ключа
            Set DP = CreateObject("Scripting.Dictionary"): DP.CompareMode = 1 'создаём субсловарь
            DP(domd) = r
            Set oUL_Dp(t) = DP
        Else 'если ключ есть
            oUL_Dp(t)(domd) = r
        End If