doppeltes Klick-Ereignis

Private Sub txt_Test_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As  _
Single, ByVal y As Single)
If Button = 2 Then _
intervall = InputBox("Intervall angeben", "Intervall", intervall)
End Sub

Nur seltsamerweise wird diese Prozedur immer 2mal aufgerufen, obwohl ich nur 1mal draufklicke.
Also nachdem ich das Input-Fenster mit "OK", "Abbrechen" oder "Enter" bestätige erscheint es gleich nochmal .
Was sehr merkwürdig ist, ich habe den gleichen Code in einem anderen UserForm verwendet und dort funktioniert es einwandfrei.
Vielleicht hat ja jemand ne Idee woran das liegen könnte
Danke....
Gruss Dennis