コード書きこみ

○Book1とModule1が作られ、以下のコードが書き込まれます
　   Sub test()
          MsgBox Date
    End Sub

'***
Set MyObject = CreateObject("Excel.Application")
Set MyBook = MyObject.Workbooks.Add

MyCodeText = "Sub test()" & Chr(13) & "MsgBox" & _
" Date" & Chr(13) & "End Sub"

Set MyCode = MyBook.VBProject.VBComponents.Add(1)
MyCode.Codemodule.AddFromString MyCodeText
MyObject.visible = true

Set MyBook = Nothing
Set MyObject = Nothing
'***