SpellingCorrector

Private Sub Command1_Click()
Text1 = SpellCheck(Text1)
End Sub

Public Function SpellCheck(ByVal IncorrectText$) As String
Dim Word As Object, retText$
On Error Resume Next
' Create the Object and open Word

Set Word = CreateObject("Word.Basic")
' Change the active window to Word, and insert

' the text from Text1 into Word.

Word.AppShow
Word.FileNew
Word.Insert IncorrectText
' Runs the Speller Corrector

Word.ToolsSpelling
Word.EditSelectAll
' Trim the trailing character from the returned text.

retText = Word.Selection$()
SpellCheck = Left$(retText, Len(retText) - 1)
' Close the Document and return to Visual Basic.

Word.FileClose 2
Show
'Set the word object to nothing to liberate the

' occupied memory

Set Word = Nothing
End Function