Не работает форма

Private Sub Workbook_Open()
UF1.Show
End Sub
'Специальная процедура, которая печатает приказ в Word
Public Sub DocWrite(sPovod As String, sFio As String, bFlagPremia As Boolean, bFlagGramota As Boolean, nSummaPremii As Long, sOtvIsp As String)
Dim oWord As Word.Application
Dim oDoc As Word.Document
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()
oWord.Visible = True
oDoc.Activate
With oWord.Selection
.TypeText "Приказ"
.Style = "Заголовок 1"
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText vbCrLf
.Style = "Обычный"
.TypeText vbCrLf
.TypeText " г .Санкт-Петербург" & Space(90) & Date
.TypeText vbCrLf
.TypeText vbCrLf
.TypeText "За проявленные успехи в " & sPovod & _
" наградить " & sFio & ":"
.TypeText vbCrLf
If bFlagPremia Then
.TypeText vbTab & "- денежной премией в сумме " & nSummaPremii & " рублей"
End If
If bFlagGramota Then
.TypeText ";"
.TypeText vbCrLf
.TypeText vbTab & "- почетной грамотой."
Else
.TypeText "."
End If
.TypeText vbCrLf
.TypeText vbCrLf
.TypeText vbCrLf
.TypeText vbCrLf
.TypeText "Генеральный директор" & vbTab & vbTab & vbTab & "Иванов И.И."
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeParagraph
.TypeText vbCrLf
.TypeText vbCrLf
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.TypeText Text:=("Отв. исполнитель" & sOtvIsp)
.TypeParagraph
End With
End Sub

Private Sub btnEscape_Click()
Unload Me
End Sub
 
Private Sub chPremia_Change()
If chPremia.Value = False Then
lblSum.Visible = False
txtSum.Visible = False
sbSum.Visible = False
Else
lblSum.Visible = True
txtSum.Visible = True
sbSum.Visible = True
End If
 
 
End Sub
 
Private Sub CommandButton1_Click()
Dim sPovod As String
Dim sFio As String
Dim bFlagPremia As Boolean
Dim bFlagGramota As Boolean
Dim nSummaPremii As Long
Dim sOtvIsp As String
If optOsvoenie.Value = True Then sPovod = "освоении новых информационных технологий"
If optVnedrenie.Value = True Then sPovod = "внедрении новых программных продуктов"
If optDrugoe.Value = True Then sPovod = txtDrugoe.Value
sFio = cbFIO.Value
bFlagPremia = chPremia.Value
bFlagGramota = chGramota.Value
If bFlagPremia = False And bFlagGramota = False Then
MsgBox "Не выбрана ни премия, ни почетная грамота!"
Exit Sub
End If
nSummaPremii = sbSum.Value
'Подставить данные из формы
 
 
 
 
 
sOtvIsp = "Петрова П . П ."
' Конец подстановки данных
 
Call ЭтаКнига.DocWrite(sPovod, sFio, bFlagPremia, bFlagGramota, nSummaPremii, sOtvIsp)
End Sub
 
 
Private Sub CommandButton2_Click()
 
End Sub
 
Private Sub optDrugoe_Change()
If optDrugoe.Value = True Then
txtDrugoe.Visible = True
Else
txtDrugoe.Visible = False
End If
 
 
End Sub
 
Private Sub sbSum_Change()
txtSum.Value = sbSum.Value
End Sub
 
Private Sub txtSum_Change()
sbSum.Value = CInt(txtSum.Value)
End Sub
 
 
Private Sub UF1_Initialize()
optOsvoenie.Value = True
txtDrugoe.Visible = False
Dim oColumn As Range
Dim oCell As Range
Set oColumn = Columns("A")
For Each oCell In oColumn.Cells
If oCell.Value <> "" Then
cbFIO.AddItem oCell.Value
End If
Next
cbFIO.Value = "Иванова Ивана Ивановича"
chPremia.Value = True
chGramota.Value = True
sbSum.Value = 100
txtSum.Value = 100
 
 
End Sub

Dim oWord
Dim oDoc
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()

Dim oWord
Dim oDoc