Поле (элемент ActiveX) в PowerPoint-VBA

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

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

                    Листинг программы
                
 
                            
                        
Private Sub CommandButton5_Click()
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)
D = Val(TextBox4.Text)
E = Val(TextBox5.Text)
F = Val(TextBox6.Text)
G = Val(TextBox7.Text)
H = Val(TextBox8.Text)
I = Val(TextBox9.Text)
J = Val(TextBox10.Text)
Q = Val(TextBox11.Text)
L = Val(TextBox12.Text)
M = Val(TextBox13.Text)
O = Val(TextBox14.Text)
P = Val(TextBox15.Text)
If A = -3 Then If B = -9 Then If C = 0 Then If D = 0 Then If E = 0 Then If F = 1 Then If G = 4 Then If H = 1 Then If I = 0 Then If J = 8 Then If Q = 1 Then If L = 2 Then If M = 0 Then If O = 1 Then If P = 4 Then MsgBox "Правильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно" Else MsgBox "Неправильно"
 
End Sub

Решение задачи: «Поле (элемент ActiveX) в PowerPoint-VBA»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton5_Click()
Const ANS = "-3 -9 1/7 1/33 0 1 4 1 0 8 1 2 0 1 4" 'правильные ответы через пробел
Dim i&, s$()
  s = Split(" " & ANS)
  For i = 1 To UBound(s)
    If Trim(Me.Shapes("TextBox" & i).OLEFormat.Object.Value) <> s(i) Then
      MsgBox "Неправильно", vbExclamation
      Exit Sub
    End If
  Next
  MsgBox "Правильно", vbInformation
End Sub