SpellChecking in a Textbox

Does anyone know how to do a spell check on text that is typed into a textbox? I will be so happy/

See
http://www.vbsquare.com/articles/spellchecker/

Try the following:

Code:

---

Dim Doc As Object
Set Doc = CreateObject("Word.Application")
Doc.Visible = False
Doc.Documents.Add
Doc.Selection.Text = Text1.Text
Doc.ActiveDocument.CheckSpelling
Text1.Text = Doc.Selection.Text
Doc.ActiveDocument.Close SaveChanges = wdDoNotSaveChanges
Doc.Quit
Set Doc = Nothing

---