Creare form in EXCEL

Uso questa routine inserita nel VBA di un documento WORD voglio creare un nuova cartella in EXCEL ed inserire
in essa un modulo VBE;

Sub CREACARTELLAEXCELInserisciModuloVBE()
On Error Resume Next

Dim ExcelApp: Set ExcelApp = CreateObject("Excel.Application")     'Creo l'oggetto Excel
ExcelApp.Visible = True                                                               'lo rendo visibile
Dim ExcelAppWBk As Excel.Application
Set ExcelAppWBk = ExcelApp.Workbooks.Add                                'creo un cartella NUOVA - fino qui funziona
Dim ExcelAppMod
ExcelAppWBk.VBProject.VBComponents.Add (1)
Dim ExcelAppCls
ExcelAppWBk.VBProject.VBComponents.Add (2)
ExcelAppCls.Name = "ClassEvents"

ExcelAppCls.CodeModule.AddFromString "Public WithEvents CloseCommandButton As MSForms.CommandButton" & _
    vbCrLf & "Private Sub CloseCommandButton_Click()" & _
    vbCrLf & "Unload UserForm1" & _
    vbCrLf & "End Sub"
End Sub

ma non mi inserisce il modulo VBE nella nuova cartella EXCEL.
Qualche suggerimento?