//**************************************
    //     
    // Name: MsSpellCheck( string ) : string
    //     
    // Description:This short and sweet func
    //     tion accepts a string containing text to
    //     be
    spell checked, checks the text for spelling using MS Word automation,
    and then returns the processed text as a string. The familiar
    MS Word spelling dialog will allow the user to perform actions such
    as selecting from suggested spellings, ignore, adding the word to a
    customized dictionary, etc.
    // By: Eric Russell
    //
    // Inputs:String - Text to be checked fo
    //     r spelling
    //
    // Returns:String - Text after modificat
    //     ion by user from the Word spell checking
    //     dialog.
    //
    // Assumes:You need to have Microsoft Wo
    //     rd95 or higher installed on the PC. Just
    //     place the function in a project module o
    //     r the general declaration section of a f
    //     orm.
    //
    // Side Effects:There are no known side 
    //     effects.
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/xq/ASP/txtCod
    //     eId.843/lngWId.-10/qx/vb/scripts/ShowCod
    //     e.htm    //for details.    //**************************************
    //     
    
    ' Description: This function accepts a string containing text to be
    ' spell checked, checks the text for spelling using MS Word automation,
    ' and then returns the processed text as a string. The familiar
    ' MS Word spelling dialog will allow the user to perform actions such
    ' as selecting from suggested spellings, ignore, adding the word to a
    ' customized dictionary, etc.
    'Syntax: MsSpellCheck( String ) : String
    'Author: Eric Russell
    'E-Mail: erussell@cris.com
    ' WEB Site: http://cris.com/~erussell/VisualBasic
    ' Created: 1998-13-14
    ' Revised: 1998-04-03
    'Compatibility: VB 5.0, VB 4.0(32bit)
    ' Assumptions: The user must have MS Word95 or higher installed on
    'their PC.
    'References: Visual Basic For Applications, Visual Basic runtime
    'objects and procedures, Visual Basic objects and procedures.
    '
    Function MsSpellCheck(strText As String) As String
    Dim oWord As Object
    Dim strSelection As String
    Set oWord = CreateObject("Word.Basic")
    oWord.AppMinimize
    MsSpellCheck = strText
    oWord.FileNewDefault
    oWord.EditSelectAll
    oWord.EditCut
    oWord.Insert strText
    oWord.StartOfDocument
    On Error Resume Next
    oWord.ToolsSpelling
    On Error GoTo 0
    oWord.EditSelectAll
    strSelection = oWord.Selection$
    If Mid(strSelection, Len(strSelection), 1) = Chr(13) Then
    strSelection = Mid(strSelection, 1, Len(strSelection) - 1)
    End If
    If Len(strSelection) > 1 Then
    MsSpellCheck = strSelection
    End If
    oWord.FileCloseAll 2
    oWord.AppClose
    Set oWord = Nothing
    End Function