Обработчик событий для добавленой в документ кнопки

[Mmarc]

Доброго времени суток. Недавно начал пробовать себя в VBA. Необходимо разработать процедуру, которая добавляет кнопку в новый документ и написать обработчик события Click на эту кнопку. У меня запускается форма, которая добавляет кнопку, мне бы хотелось изменять свойства кнопки. Подскажите как. Ниже код добавления кнопки

Private Sub Button1_Click()
Dim doc As Word.Document
Dim shp As Word.InlineShape
Set doc = Documents.Add
Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
UserForm1.Hide

shp.OLEFormat.Object.Caption = "Click Here"
Dim sCode As String
sCode = "Private Sub " & shp.OLEFormat.Object.Name & "_Click()" & vbCrLf & _
            "   MsgBox ""You Clicked the CommandButton""" & vbCrLf & _
            "End Sub"
    doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString sCode
End Sub

Сделал обработчик с msgboxом, но хотелось бы вставить в него какую-нибудь весомую процедуру.

[Скрипт]

Mmarc, можно в VBAProject модули импортировать. Без программирования модули импортируются в VBA так:

1. перейдите в VBA;
2. File - Import File...

[viter.alex]

Для "более весомой процедуры" я бы использовал классы. Примеры на форуме есть