Изменение значения textbox powerpoint

    Dim Namee
    'loop through all the Shapes, set text for the TextBox with the specified name "TextBox1"
    For i = 1 To ActivePresentation.Slides(2).Shapes.Count
        Namee = ActivePresentation.Slides(2).Shapes(i).Name
        If Namee = "Shapes9" Then
        ActivePresentation.Slides(2).Shapes(i).TextFrame.TextRange.text = ""
    End If
    Next i

Public Sub Vopros1()
    Dim Namee
    'loop through all the Shapes, set text for the TextBox with the specified name "TextBox1"
    For i = 1 To 11
    Namee = ActivePresentation.Slides(2).Shapes(i).Name
        If Namee = "Shapes" & i Then
            For cc = 2 To 8
            ActivePresentation.Slides(cc).Shapes(i).TextFrame.TextRange.text = ""
            Next
        End If
        
    Next i
        
    Dim nResult As Integer
       nResult1 = InputBox("Ââåäèòå îòâåò")
    If nResult1 = 4 Then
        For bb = 2 To 8
            ActivePresentation.Slides(bb).Shapes(7).TextFrame.TextRange.text = "Â"
        Next
         
    Else
        MsgBox ("Íåïðàâèëüíûé îòâåò")
    End If
 
End Sub

Public Sub Vopros1()
 
    For i = 2 To 8
    Set myDocument = ActivePresentation.Slides(i)
        myDocument.Shapes.Range(Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)).TextFrame.TextRange.text = ""
    Next i
        
    Dim nResult As Integer
       nResult1 = InputBox("Ââåäèòå îòâåò")
    If nResult1 = 4 Then
        For bb = 2 To 8
            ActivePresentation.Slides(bb).Shapes(8).TextFrame.TextRange.text = "Â"
        Next
         
    Else
        MsgBox ("Íåïðàâèëüíûé îòâåò")
    End If
 
End Sub

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = 1 Then
    Call Vopros1
    End If
End Sub