Как подскажет как поставить ВРЕМЯ на перелистывание страниц теста?

Private Sub OptionButton1_Click()
RightAnswer = Worksheets("Лист3").Cells(QuestCounter + 1, 2).Value
If OptionButton1.Value Then Answer = 1
If Answer = RightAnswer Then
    AnswerCounter = AnswerCounter + 1
    'MsgBox "Правильно"
    Else: MsgBox "   О Ш И Б К А  !!!", , " "
End If
OptionButton1.Value = False
'MsgBox AnswerCounter
QuestCounter = QuestCounter + 8
If QuestCounter > Worksheets("Лист3").Cells(1, 3).Value * 8 - 1 Then
procent = AnswerCounter * 100 \ Worksheets("Лист3").Cells(1, 3).Value
MsgBox ("Количество правильных ответов = " & AnswerCounter & "   " & "(" & procent & "%" & ")" & "     СЛЕДУЮЩИЙ !")
'Worksheets("Лист1").Cells(NumFamil + 2, 2).Value = AnswerCounter
'Worksheets("Лист1").Cells(NumFamil + 2, 3).Value = procent
Unload UserForm1
GoTo e1
End If
UserForm_Initialize
e1:
End Sub