Как разбить на части VBA процедуру (ту лардж)?

[neprofi]

Просьба помочь советом. Я не программист. Даже не студент
Написалась вот такая штука (пример):

Private Sub CommandButton1_Click()
Dim oDoc As Document
Set oDoc = Application.Documents.Add("C:\Мои документы\Проба.dot")

oDoc.Bookmarks("a1").Range.Text = TextBox1.Value
oDoc.Bookmarks("b1").Range.Text = TextBox2.Value
oDoc.Bookmarks("с1").Range.Text = TextBox3.Value


Проба.Hide
oDoc.Activate

End Sub

В реале конечно же больше (пишет Procedure too large).
Необходимо разбить на несколько процедур.

Спасибо.

[Vikenty]

урезано чтоли? можешь выложить весь исходник
или по асе: шесть12979261