Ошибка "Запрашиваемый номер семейства не найден" - VBA

Формулировка задачи:

Доброй ночи/утра/дня! Написал скрипт, но он не в какую не хочет работать =(... Скрипт у меня на Автозаполнение текста договоров... Принцип работы - Создаю в договоре закладку и называю её как хочу, далее захожу в VBA и вписываю имя закладки, затем происходит замена... По идеи должно все работать, но нет. Помогите пожалуйста! Вот код:

                    Листинг программы
                
Option Explicit
 
Private Sub ComboBox1_Change()
 
End Sub
 
Private Sub CommandButton1_Click()
ActiveDocument.FormFields("ФИОПродавца").Result = Me.TextBox1.Text
ActiveDocument.FormFields("ЫйАяПродавец").Result = Me.TextBox2.Text
ActiveDocument.FormFields("ПропискаПродавца").Result = Me.TextBox3.Text
ActiveDocument.FormFields("Этаж").Result = Me.TextBox4.Text
ActiveDocument.FormFields("ТипДома").Result = Me.TextBox5.Text
ActiveDocument.FormFields("Комнат").Result = Me.TextBox6.Text
ActiveDocument.FormFields("ОбщаяПлощадь").Result = Me.TextBox7.Text
ActiveDocument.FormFields("ЖилаяПлощадь").Result = Me.TextBox8.Text
ActiveDocument.FormFields("Цена").Result = Me.TextBox9.Text
ActiveDocument.FormFields("ФИОПокупателя").Result = Me.TextBox10.Text
ActiveDocument.FormFields("ЫйАяПокупатель").Result = Me.TextBox10.Text
ActiveDocument.FormFields("ПропискаПокупателя").Result = Me.TextBox12.Text
Dim oTextBox As TextBox
Unload Me
End Sub
 
Private Sub CommandButton2_Click()
 
End Sub
 
Private Sub Frame1_Click()
 
End Sub
 
Private Sub Image1_Click()
 
End Sub
 
Private Sub Image2_Click()
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub Label10_Click()
 
End Sub
 
Private Sub Label13_Click()
 
End Sub
 
Private Sub Label15_Click()
 
End Sub
 
Private Sub Label18_Click()
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Label3_Click()
 
End Sub
 
Private Sub Label36_Click()
 
End Sub
 
Private Sub Label41_Click()
 
End Sub
 
Private Sub Label46_Click()
 
End Sub
 
Private Sub Label5_Click()
 
End Sub
 
Private Sub Label6_Click()
 
End Sub
 
Private Sub Label7_Click()
 
End Sub
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub TextBox10_Change()
 
End Sub
 
Private Sub TextBox11_Change()
 
End Sub
 
Private Sub TextBox12_Change()
 
End Sub
 
Private Sub TextBox13_Change()
 
End Sub
 
Private Sub TextBox14_Change()
 
End Sub
 
Private Sub TextBox15_Change()
 
End Sub
 
Private Sub TextBox16_Change()
 
End Sub
 
Private Sub TextBox17_Change()
 
End Sub
 
Private Sub TextBox18_Change()
 
End Sub
 
Private Sub TextBox19_Change()
 
End Sub
 
Private Sub TextBox2_Change()
 
End Sub
 
Private Sub TextBox20_Change()
 
End Sub
 
Private Sub TextBox28_Change()
 
End Sub
 
Private Sub TextBox31_Change()
 
End Sub
 
Private Sub TextBox32_Change()
 
End Sub
 
Private Sub TextBox33_Change()
 
End Sub
 
Private Sub TextBox34_Change()
 
End Sub
 
Private Sub TextBox35_Change()
 
End Sub
 
Private Sub TextBox36_Change()
 
End Sub
 
Private Sub TextBox37_Change()
 
End Sub
 
Private Sub TextBox38_Change()
 
End Sub
 
Private Sub TextBox39_Change()
 
End Sub
 
Private Sub TextBox4_Change()
 
End Sub
 
Private Sub TextBox40_Change()
 
End Sub
 
Private Sub TextBox41_Change()
 
End Sub
 
Private Sub TextBox5_Change()
 
End Sub
 
Private Sub TextBox6_Change()
 
End Sub
 
Private Sub TextBox7_Change()
 
End Sub
 
Private Sub TextBox8_Change()
 
End Sub
 
Private Sub TextBox9_Change()
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Ошибка в коде:

                    Листинг программы
                
ActiveDocument.FormFields("Г”Г€ГЋГЏГ°Г®Г¤Г*ГўГ¶Г*").Result = Me.TextBox1.Text

Решение задачи: «Ошибка "Запрашиваемый номер семейства не найден"»

textual
                            Листинг программы 
                        
ActiveDocument.FormFields("ФИОПродавца").Result = "Test text"