DblClick TodaysDate in Field

[BBryan]

Hi,
I use this code to DblClick TodaysDate in Field or take it out.

Private Sub EnterNameOfControl_DblClick(Cancel As Integer)
If IsNull(EnterNameOfControl) Then
EnterNameOfControl = Date
Else
EnterNameOfControl= Null
End If
End Sub

Does anyone know how would I make this into a Module (Named-DblClickDate) To work like above.
so all I have to put in the DblClk properties of the textBox - the name of the Module
and It will work like the code above.
Thanks BBryan