Private Sub TextBox1_AfterUpdate()
    Debug.Print TextBox1.Text
End Sub