How to check spelling of a text, entered into textbox

The sample code below shows the idea – you move cursor to textbox, select text and then run spelling:

With Me.TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Text)
End With

DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSpelling
DoCmd.SetWarnings True