Как создать массив массивов

Sub BooksAndSheetsNamesInArray()
    Dim oldWB As Object, newSheet As Object
    Dim iWrbCount%
    Dim strGeneralBookName$, strPersonalBookName$
    Dim mStr$, newstr$
    
    iMyCounter = 0
    mStr = ""
    newstr = ""
    
    Set oldWB = ThisWorkbook
    iWrbCount = Application.Workbooks.Count '
    
    strGeneralBookName = oldWB.Name
    strPersonalBookName = "PERSONAL.XLS"
 
    For i = iWrbCount To 1 Step -1
        If Workbooks(i).Name <> strGeneralBookName And _
                Workbooks(i).Name <> strPersonalBookName Then
            Workbooks(i).Activate
            
                With ActiveWorkbook
                    iShCount = .Sheets.Count
                        For Each newSheet In .Sheets
                            With newSheet
                                If Not IsEmpty(.UsedRange) Then ' тут спасибо "Казанский"
                                    newSheet.Select
                                        If fun_PhraseSearch _
                                                ("bla-bla-bla", , , 25, , False) = True Then
                                            On Error Resume Next
                                            mStr = mStr & "\" & Workbooks(i).Name & _
                                                                                        ";" & newSheet.Name '
                                            newstr = mStr & "\" & Workbooks(i).Name & _
                                                                                        ";" & newSheet.Name ' _
                                                                                        if outside the line limit
                                            On Error GoTo 0
                                        End If
                                End If
                            End With
                        Next
                End With
        End If
    Next i
End Sub

                                              If fun_PhraseSearch _
                                                ("bla-bla-bla", , , 25, , False) = True Then
                                            On Error Resume Next
                                            mStr = mStr & "\" & Workbooks(i).Name & _
                                                                                        ";" & newSheet.Name '
                                             If Err.Number <> 0 Then
                                                newstr = "\" & Workbooks(i).Name & _
                                                                                        ";" & newSheet.Name ' _
                                                                                        if outside the line limit
                                            End If
                                            On Error GoTo 0
                                                Else: Workbooks(i).Close
                                        End If
                                End If
                            End With
                        Next
                End With
        End If
    Next i
    If newstr <> "" Then mStr = mStr & newstr
End Sub

Sub test()
    Dim a(1 To 3)
    Dim b(1 To 3)
    Dim i&
 
    For i = 1 To 3
        b(i) = i * 2
        a(i) = b
    Next
End Sub

Dim a()
a = array(1, 2, 3, 4, 5)