VBA - TextBox_Exit doesn't work properly when closing with ESC - vba

Question

I have a form with a TextBox1 and a CommandButton1.
The Cancel property of the CommandButton1 is True. So I can close the form with a key press on Esc.
The TextBox1 has an Exit event, so when leaving this element will fire an event. In this event I will print the user input and some static content.
Sub CommandButton1_Click()
Unload Me
End Sub
Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "Textbox1_Exit was fired, content was: " & TextBox1.Value
End Sub
Now I enter some content in the TextBox1, let's say I enter 'foo'.
If I close the form with the CommandButton1 the output will be:
TextBox1_Exit was fired, content was: foo
The problem:
If I leave the form via the Esc key, the output will only be:
TextBox1_Exit was fired, content was:
So only the static part of Debug.Print will be printed.
I would like to get the user input in both cases.

Answer 1

Okay so this was a bit tricky - since you can't grab the TextBox1.Value when using Esc from the Userform, you can use a Public string variable instead which mimics the entries made into the TextBox. So you'll need to declare a Public variable, add a TextBox_Change event, and add a Userform_Initialize event to reset the string each time:
Public mystring As String
Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
If Not Len(TextBox1.Value) <= Len(mystring) + 1 Then
mystring = mystring & Right(TextBox1.Value, 1)
Else
If TextBox1.Value <> "" Then
mystring = TextBox1.Value
End If
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "Textbox_Exit was fired, content was: " & mystring
End Sub
Private Sub UserForm_Initialize()
mystring = ""
End Sub

Answer 2

you could use UserForm_QueryClose event to catch the UserForm exit event and call TextBox1_Exit one:
Option Explicit
Sub CommandButton1_Click()
Unload Me
End Sub
Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "Textbox1_Exit was fired, content was: " & TextBox1.Value
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim myVar As MSForms.ReturnBoolean
Me.TextBox1_Exit myVar
End Sub