Insert Macro in excel

Hi

How can I to insert a macro inside Excel using VB, I need to Insert Macro and to Call It

Is possible to do ?

Code:

---

Sub Sample()
    Dim xlapp As Object, xlbook As Object, xlmodule As Object
    Dim strCode As String
     
    Set xlapp = CreateObject("Excel.Application")
   
    xlapp.Visible = True

    Set xlbook = xlapp.Workbooks.Add
    Set xlmodule = xlbook.VBProject.VBComponents.Add(1)

    '~~> Add a macro to the module...
    strCode = "Sub MutelyMacro()" & vbCr & _
              "MsgBox ""Hello Mutely. You have successfully created the macro :-)"" " & vbCr & _
              "End Bub"
   
    xlmodule.CodeModule.AddFromString strCode

  '~~> This is to run that macro
    xlapp.Run "MutelyMacro"

    '~~> Cleanup
    Set xlmodule = Nothing
   
    '~~> Remove the below line if you don't want to save it...
    xlbook.Saved = True
    xlapp.Quit
End Sub

---