Function SpellChecker( TextValue )
 Dim objWordobject
 Dim objDocobject
 Dim strReturnValue

 'Create a new instance of Word Application
 Set objWordobject = CreateObject( "Word.Application" )
 objWordobject.WindowState = 2
 objWordobject.Visible = True

 'Create a new instance of Document
 Set objDocobject = objWordobject.Documents.Add( , , 1, True )
 objDocobject.Content = TextValue
 objDocobject.CheckSpelling

 'Return spell check completed text data
 strReturnValue = objDocobject.Content

 'Close Word Document
 objDocobject.Close False

 'Set Document To Nothing
 Set objDocobject = Nothing

 'Quit Word
 objWordobject.Application.Quit True

 'Set Word object To Nothing
 Set objWordobject = Nothing

 SpellChecker = strReturnValue
End Function