Timer ruft Function doppelt auf

Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare 

Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
bedient, um alle 3 Sekunden folgende 

Function aufzurufen:
Public 

Function ebtimer()
MsgBox "a"
End Function


Darin kann ich dann ja Code ändern oder andere Functions aurufen.

Dem Timer starte ich wie folgt:

intEilBuftragstimer = SetTimer(Application.hWnd, 31, Btimerintervall, AddressOf ebtimer)

intEilBuftragstimer ist: Public intEilBuftragstimer As Integer

Btimerintervall ist: Public Btimerintervall As Long = 18000

Wenn ich nun den Timer starte, fürht der auch alle paar Sekunden das Makro aus.

Allerdings wirft der mir die msgbox 2 mal aus.

Warum? Was habe ich falsch gemacht?

Würde mich über eine Antwort sehr freuen.

Bis dahin.

manuel