кроссворд в PowerPoint - исправить!

[baronmobik]

Это программа в PowerPoint, через нее работает кроссворд, но при нажатии забинженой клавиши проверить все стирается, кроме буквы е. В архиве находиться сама презентация что бы вы поняли, что к чему.

'2 по горизонтали "порт"

If (TextBox3.Text = "п") And (TextBox4.Text = "о") And (TextBox5.Text = "р") And (TextBox6.Text = "т") Then
TextBox3.BackColor = RGB(0, 255, 255)
TextBox4.BackColor = RGB(0, 255, 255)
TextBox5.BackColor = RGB(0, 255, 255)
TextBox6.BackColor = RGB(0, 255, 255)

Else
If (TextBox1.Text = "п") Then
TextBox3.Text = ""
TextBox4.Text = ""
TextBox6.Text = ""

Else

TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
End If


'4 по горизонтали "интернет"

If (TextBox10.Text = "и") And (TextBox11.Text = "н") And (TextBox12.Text = "т") And (TextBox13.Text = "е") 
And (TextBox14.Text = "р") And (TextBox15.Text = "н") And (TextBox16.Text = "е") And (TextBox17.Text = "т") Then
TextBox11.BackColor = RGB(0, 255, 255)
TextBox12.BackColor = RGB(0, 255, 255)
TextBox13.BackColor = RGB(0, 255, 255)
TextBox14.BackColor = RGB(0, 255, 255)
TextBox15.BackColor = RGB(0, 255, 255)
TextBox16.BackColor = RGB(0, 255, 255)
TextBox17.BackColor = RGB(0, 255, 255)

Else

If (TextBox8.Text = "и") And (TextBox9.Text = "у") Then
TetxBox12.Text = ""
TetxBox13.Text = ""
TetxBox15.Text = ""
TetxBox16.Text = ""
TetxBox17.Text = ""

Else

TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""

End If
End If


'3 по горизонтали "медиа"

If (TextBox19.Text = "м") And (TextBox20.Text = "е") And (TextBox21.Text = "д") And (TextBox22.Text = "и") 
And (TextBox23.Text = "а") Then
TextBox19.BackColor = RGB(0, 255, 255)
TextBox20.BackColor = RGB(0, 255, 255)
TextBox21.BackColor = RGB(0, 255, 255)
TextBox22.BackColor = RGB(0, 255, 255)
TextBox23.BackColor = RGB(0, 255, 255)

Else

If (TextBox18.Text = "т") Then
TextBox19.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""

Else

TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""

End If
End If

'1 по вертикали "принтер"

If (TextBox1.Text = "п") And (TextBox5.Text = "р") And (TextBox8.Text = "и") And (TextBox11.Text = "н") 
And (TextBox18.Text = "т") And (TextBox20.Text = "е") And (TextBox24.Text = "р") Then
TextBox1.BackColor = RGB(0, 255, 255)
TextBox5.BackColor = RGB(0, 255, 255)
TextBox8.BackColor = RGB(0, 255, 255)
TextBox11.BackColor = RGB(0, 255, 255)
TextBox18.BackColor = RGB(0, 255, 255)
TextBox20.BackColor = RGB(0, 255, 255)
TextBox24.BackColor = RGB(0, 255, 255)

Else

If (TextBox6.Text = "т") And (TextBox12.Text = "т") And (TextBox21.Text = "д") Then
TextBox1.Text = ""
TextBox8.Text = ""
TextBox18.Text = ""
TextBox24.Text = ""

Else

If (TextBox6.Text = "т") Then
TextBox1.Text = ""
TextBox8.Text = ""
TextBox11.Text = ""
TextBox18.Text = ""
TextBox20.Text = ""
TextBox24.Text = ""

Else

If (TextBox12.Text = "т") Then
TextBox1.Text = ""
TextBox5.Text = ""
TextBox8.Text = ""
TextBox18.Text = ""
TextBox20.Text = ""
TextBox24.Text = ""

Else

If (TextBox21.Text = "д") Then
TextBox1.Text = ""
TextBox5.Text = ""
TextBox8.Text = ""
TextBox11.Text = ""
TextBox18.Text = ""
TextBox24.Text = ""

Else

TextBox1.Text = ""
TextBox5.Text = ""
TextBox8.Text = ""
TextBox11.Text = ""
TextBox18.Text = ""
TextBox20.Text = ""
TextBox24.Text = ""

End If
End If
End If
End If
End If

'5 по вертикали "шнур"

If (TextBox2.Text = "ш") And (TextBox7.Text = "н") And (TextBox9.Text = "у") And (TextBox14.Text = "р") Then
TextBox2.BackColor = RGB(0, 255, 255)
TextBox7.BackColor = RGB(0, 255, 255)
TextBox9.BackColor = RGB(0, 255, 255)
TextBox14.BackColor = RGB(0, 255, 255)

Else

If (TextBox15.Text = "н") Then
TextBox2.Text = ""
TextBox7.Text = ""
TextBox9.Text = ""

Else

TextBox2.Text = ""
TextBox7.Text = ""
TextBox9.Text = ""
TextBox14.Text = ""

End If
End If

[Serge_Bliznykov]

не знаю, где Вы взяли файл и что с ним делали,
но причина того, что не работает - в следующем - имена TextBox'ов на форме одни,
а в тексте программы "Проверить" - другие.
нужно их привести их в соответствие (либо на форме переименовать, либо в коде изменить)