VBA: Inject a Macro Into New Workbook From Existing Workbook

 Sub CopyAModule(wkbFrom As String, wkbTo As String, strFromMod As String)
    Dim wkb As Workbook
    Dim strFile As String
    
    Set wkb = Workbooks(wkbFrom)
    
    strFile = wkb.Path & "\\vbCode.bas"
    wkb.VBProject.VBComponents(strFromMod).Export strFile
    
    On Error Resume Next
    Set wkb = Workbooks(wkbTo)
    If Err.Number <> 0 Then
        Workbooks.Open wkbTo
        Set wkb = Workbooks(wkbTo)
    End If
    
    wkb.VBProject.VBComponents.Import strFile
    wkb.Save
    
    Set wkb = Nothing
End Sub