Accesman ve berduş hocalarım sizin için gif hazırladım mantığı anlamanız için.
Set ClassTextBox = TextBox bunlardan fazla yazmışım

Public Sub Initialize(TextBox As Access.TextBox)

    Set ClassTextBox = TextBox

    ClassTextBox.OnMouseDown = olayTextBox

    ClassTextBox.OnKeyDown = olayTextBox

    ClassTextBox.OnClick = olayTextBox

    

End Su

b