Automatic Spell Check??

Hi -

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    Dim v
    For Each v In Split(TextBox1.Text)
        If Not Application.CheckSpelling(v) Then _
        MsgBox "'" & v & "' is not a valid word.", _
        vbExclamation
    Next v
End If
End Sub

from http://www.ozgrid.com/forum/showthread.php?t=23307

event