Добавить строку текста в модуль позволяет метод InsertLines. С его помощью можно указать, с какой строки модуля следует добавить текст.

В примере, приведенном ниже, создается новая форма, добавляется кнопка, для нее создается процедура обработки события Click и с помощью метода InsertLines вставляется строка кода.

Function ClickEventProc( ) As Boolean
═════Dim frm As Form, ctl As Control, mdl As Module
═════Dim IngReturn As Long

═════On Error Goto Error_ClickEventProc
═════? создаем новую форму
═════Set frm = CreateForm
═════? добавляем на форму кнопку
═════Set ctl = CreateControKfrm. Name, acCommandButton, , , , 1000, 1000)
═════ctl. Caption = "Click here"
═════? получаем ссылку на модуль формы
═════Set mdl = аrm. Module
═════? добавляем процедуру обработки события
═════IngReturn = mdl.CreateEventProc(?'Click", ctl.Name)
═════? вставляем текст в тело процедуры
═════mdl.lnsertLines IngReturn + 1, vbTab & "MsgBox ""Way cool!""'"
═════ClickEventProc = True

Exit_ClickEventProc:
═════Exit Function

Error_ClickEventProc:
═════MsgBox Err & ": " & Err. Description
═════ClickEventProc = False
═════Resume Exit_ClickEventProc
End Function

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997