Private Sub TextBox1_AfterUpdate()
    Debug.Print "TextBox1_AfterUpdate  " & Timer
End Sub
Private Sub TextBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Debug.Print "TextBox1_BeforeDragOver  " & Timer
End Sub
Private Sub TextBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Debug.Print "TextBox1_BeforeDropOrPaste  " & Timer
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_BeforeUpdate  " & Timer
End Sub
Private Sub TextBox1_Change()
    Debug.Print "TextBox1_Change  " & Timer
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_DblClick  " & Timer
End Sub
Private Sub TextBox1_DropButtonClick()
    Debug.Print "TextBox1_DropButtonClick  " & Timer
End Sub
Private Sub TextBox1_Enter()
    Debug.Print "TextBox1_Enter  " & Timer
End Sub
Private Sub TextBox1_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_Error  " & Timer
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_Exit  " & Timer
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "TextBox1_KeyDown  " & Timer
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Debug.Print "TextBox1_KeyPress  " & Timer
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "TextBox1_KeyUp  " & Timer
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseDown  " & Timer
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseMove  " & Timer
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseUp  " & Timer
End Sub