Probléme de pile en vba

lorsque je teste ce programme, j'ai un message disant que ma pile est pleine.
Ou est donc mon erreur et comment la corriger?

'voici mon objet timerfm

Public Property Let responseu(ByVal Nb As String)

responseu = "N"

End Property



Public Property Get responseu() As String

responseu = "mm"
End Property

Function demar()
Application.OnTime Now + TimeValue("00:09:15"), "Ma_Procedure"
End Function


' voici la fonction que j'utilise pour faire démarrer mon timerfm

Public timor As New timerfm

Dim timer As New timerfm


Sub Ma_Procedure()

Dim Reponse As Integer

Reponse = MsgBox(" 1er envoi", vbYesNo)

If Reponse = vbYes Then ' L’utilisateur a choisit Yes.
timer.demar ' Effectue une action.
Else ' L’utilisateur a choisi No.
timer.stope
End If

End Sub



Je vous remercie de m'aider à y voire plus claire