Sub test()
    Dim s As String
    s = "sub mytest()" + Chr(13) + Chr(10) + "MsgBox 1" + Chr(13) + Chr(10) + "End Sub"
    
    ActiveWorkbook.VBProject.VBComponents.Item(1).CodeModule.AddFromString s
End Sub