Write the items in an array to seperate lines in a codemodule

[Vantom]

I have this code:

Sub CreateImportModule()
    Dim CodeMod As VBIDE.CodeModule
    Dim x As Integer: x = 2
    Dim vArrModules() As Variant
    Dim VBProj As VBIDE.VBProject
    Dim VBCompModule As VBIDE.VBComponent
    Dim VBCompAddModule As VBIDE.VBComponent
    Dim y As Integer
    
        Set VBProj = ActiveWorkbook.VBProject
            For Each VBCompModule In VBProj.VBComponents
                ReDim Preserve vArrModules(y)
                vArrModules(y) = Chr(34) & VBCompModule.Name & ".bas" & Chr(34) & ", "
                y = y + 1
            Next VBCompModule
                
        Set VBCompModule = VBProj.VBComponents.Add(vbext_ct_StdModule)
            VBCompModule.Name = Replace(ActiveWorkbook.Name, ".xlsm", "") & "ImportModule"
        
        Set VBCompModule = VBProj.VBComponents(Replace(ActiveWorkbook.Name, ".xlsm", "") & "ImportModule")
 
        Set CodeMod = VBCompModule.CodeModule
            With CodeMod
                .InsertLines x, "    Dim strModuleName(): strModuleName = Array(" & Left(Join(vArrModules, ""), Len(Join(vArrModules, "")) - 2) & ")"
            End With
End Sub

Which results in this:

    Dim strModuleName(): strModuleName = Array("ThisWorkbook.bas", "Sheet1.bas", "Module1.bas", "Module2.bas", "Module3.bas")

But I want this:

    Dim strModuleName(): strModuleName = Array("ThisWorkbook.bas", _
                                                "Sheet1.bas", _
                                                "Module1.bas", _
                                                "Module2.bas", _
                                                "Module3.bas")

How?

 

[Vantom]

I think this solves it:

Sub CreateImportModule()
    Dim CodeMod As VBIDE.CodeModule
    Dim x As Integer: x = 2
    Dim vArrModules() As Variant
    Dim VBProj As VBIDE.VBProject
    Dim VBCompModule As VBIDE.VBComponent
    Dim VBCompAddModule As VBIDE.VBComponent
    Dim y As Integer
    
        Set VBProj = ActiveWorkbook.VBProject
            For Each VBCompModule In VBProj.VBComponents
                ReDim Preserve vArrModules(y)
                vArrModules(y) = Chr(34) & VBCompModule.Name & ".bas" & Chr(34) & ",[COLOR=#ff0000] _[/COLOR]" [COLOR=#ff0000]& vbNewLine & Space(47)[/COLOR]
                y = y + 1
            Next VBCompModule
        [COLOR=#ff0000]vArrModules(UBound(vArrModules)) = Replace(vArrModules(UBound(vArrModules)), ", _", ")")[/COLOR]
                
        Set VBCompModule = VBProj.VBComponents.Add(vbext_ct_StdModule)
            VBCompModule.Name = Replace(ActiveWorkbook.Name, ".xlsm", "") & "ImportModule"
        
        Set VBCompModule = VBProj.VBComponents(Replace(ActiveWorkbook.Name, ".xlsm", "") & "ImportModule")
 
        Set CodeMod = VBCompModule.CodeModule
        
            With CodeMod
                .InsertLines x, "    Dim strModuleName(): strModuleName = Array(" & [COLOR=#ff0000]Join(vArrModules, "")[/COLOR]
            End With
End Sub

 

[Vantom]

And add the number of lines in the array, so the next inserted lines goes beneath the array:

Sub CreateImportModule()
    Dim CodeMod As VBIDE.CodeModule
    Dim x As Integer: x = 2
    Dim vArrModules() As Variant
    Dim VBProj As VBIDE.VBProject
    Dim VBCompModule As VBIDE.VBComponent
    Dim VBCompAddModule As VBIDE.VBComponent
    Dim y As Integer
    
        Set VBProj = ActiveWorkbook.VBProject
            For Each VBCompModule In VBProj.VBComponents
                ReDim Preserve vArrModules(y)
                vArrModules(y) = Chr(34) & VBCompModule.Name & ".bas" & Chr(34) & ",[COLOR=#ff0000] _[/COLOR]" [COLOR=#ff0000]& vbNewLine & Space(47)[/COLOR]
                y = y + 1
            Next VBCompModule
        [COLOR=#ff0000]vArrModules(UBound(vArrModules)) = Replace(vArrModules(UBound(vArrModules)), ", _", ")")[/COLOR]
                
        Set VBCompModule = VBProj.VBComponents.Add(vbext_ct_StdModule)
            VBCompModule.Name = Replace(ActiveWorkbook.Name, ".xlsm", "") & "ImportModule"
        
        Set VBCompModule = VBProj.VBComponents(Replace(ActiveWorkbook.Name, ".xlsm", "") & "ImportModule")
 
        Set CodeMod = VBCompModule.CodeModule
        
            With CodeMod
                .InsertLines x, "    Dim strModuleName(): strModuleName = Array(" & [COLOR=#ff0000]Join(vArrModules, "")
[/COLOR]                x = x + 1 [COLOR=#ff0000]+[/COLOR] [COLOR=#ff0000]UBound(vArrModules)[/COLOR]
            End With
End Sub