'Copie e cole este código em um módulo VBA

Sub IniciaProcesso()
Dim Tempo As String
Tempo = "00:00:10" 'altere o valor do tempo aqui

Dim rslt As VbMsgBoxResult
rslt = MsgBox("Esta é a mensagem. Clique em um dos botões para exibir o resultado", vbYesNo, "Mensagem")
If rslt = vbYes Then
    MsgBox "Você clicou em sim. A mensagem aparecerá novamente em " & Tempo & " segundos"
    Application.OnTime DateTime.Now + TimeValue(Tempo), "IniciaProcesso"
Else
    MsgBox "Você clicou em não. A mensagem não mais aparecerá"
End If

End Sub

'Tomás Vásquez
'http://tomas.vasquez.sites.uol.com.br
'http://br.thespoke.net/MyBlog/Tomamais/MyBlog.aspx