VBA Spell Check in O365 (Access 2016) Crashing Access - ms-access

Question

I ran the following code On Lost Focus event in Access 2010 with no problems.
Dim strSpell
strSpell = txtMyField
If IsNull(Len(strSpell)) Or Len(strSpell) = 0 Then
Exit Sub
End If
With txtMyField
.SetFocus
.SelStart = 0
.SelLength = Len(strSpell)
End With
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSpelling
DoCmd.SetWarnings True
After upgrading to O365 (Access 2016), the spell check works with no problems unless there's multiple spelling corrections. If the user choose to Change All or change more than 1 word Access crash and the user need to restart the program. I tried to change the code to run On Exit event but it didn't help. I also decompile the database and found no erros.
The only way I can run spell check is using the spell check on the ribbon. I hide the ribbon to prevent the users from messing around so this option is not going to work. Also, I would like to limit spell check to one field and force it after the user exit the field.
I'm guessing that Access is crashing because more than one correction trigger the event again and since spell Check is already running the program crash. Any idea how to fix it ?
UPDATED NOTES FROM COMMENTS
In my testing I found that when you hit Enter several time when you
type in the field, it cause the program to crash.
Text field is LONG TEXT
Form field is bound to text field

Answer 1

I was able to repeat the hanging process "Not Responding" message with a Long Text field and 3500 characters and LOTS of items with 'spelling errors`.
Using your code it would crash with LostFocus code or even if I put it in a command button.
I started wondering if it was the whole text selection that was causing an error with how the spell checker tried to do its job - and whether that was even needed.
When I moved your code out of the LostFocus event and replaced it with this code in the Exit event it worked reliably
EDIT: Moved code to Exit event and specified specific textfield
Private Sub txtMyField_Exit(Cancel As Integer)
With txtMyField
'If the textbox has data run the Spell Checker
If Len(.Value & "") > 0 Then
.SetFocus
.SelStart = 0
.SelLength = Len(.Value)
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSpelling
DoCmd.SetWarnings True
.SelLength = 0
End If
End With
End Sub