Bom dia, ou tarde,

No seguinte cód da WorkBook Open:

Aplicação da msg teste---------------------------------------
Application.OnTime Now + TimeValue("00:05:00"), "PlanilhaAberta"
Application.OnTime Now + TimeValue("00:00:08"), "PLanilhaAberta2"

e no Módulo:

Sub PlanilhaAberta()
MsgBox "Vai me deixar aberta aqui pra que?", vbInformation, "S.E.I.A."
End Sub
Sub PlanilhaAberta2()
MsgBox "Acho que dá pra puxar um assunto né?", vbYesNo + vbQuestion, "S.E.I.A.- Sitema Excel de Inteligência Artificical"
If vbYes Then
  Application.OnTime Now + TimeValue("00:00:15"), "PLanilhaAberta3"
Else
'nada
End If
End Sub

Sub PlanilhaAberta3()
MsgBox "Já pensou no findi? não precisa responder, só pensa que eu vou entender.", vbInformation, "S.E.I.A."
End Sub

na PlanilhaAberta2 tem uma pergunta, queria que as MsgBox de horário programado continuassem apenas na opção Sim, mas infelizmente na opção não tmbm continua, alguém tem uma dica de como posso deixar isso direito??

Queria que a opção "Não" da PlanilhaAberta2 parasse de mandar as msgbox programadas, porém, selecionando "Sim" ou "Não" a msgBox PlanilhaAberta3 aparece.
vou colocar mais msgbox como esta, porém, preciso que elas só continuem no caso do "Sim"