You could have one function and call it in the textbox event property. I have done this for a form full of buttons. Example:
Code:
Private Function HandleButtonClick(intBtn As Integer)
'this procedure is called when a button is clicked
'intBtn indicates which button was clicked
Select Case intBtn
Case 1
DoCmd.OpenForm "AirportData"
Case 2
DoCmd.OpenReport "Fax", acViewPreview
Case 3
DoCmd.OpenReport "Summary", acViewPreview
Case 4
DoCmd.OpenReport "ContactList", acViewPreview
Case 5
UpdateFromPaver
Case 6
ExportAASP
Case 7
DoCmd.OpenReport "Imagery", acViewPreview
Case 8
DoCmd.OpenReport "Strength", acViewPreview, , , acDialog
Case 9
DoCmd.Quit acQuitSaveNone
End Select
End Function
Then in the event property:
=HandleButtonClick(1)