Looking for synonyms database

http://www.gutenberg.org/ebooks/3202

Hello man how are you today. It's a nice day.

Accost Achilles how are I as of now. I's a Christian All-comprehending Date DMZ.

[FONT=Arial][COLOR=Pink][SIZE=2]Public Sub Syno()
Dim MSWord As Object, oSynInfo As Object
Dim vSynList As Variant
Dim strWord As String
Set MSWord = CreateObject("Word.Application")
strWord = ActiveCell.Value
Set oSynInfo = MSWord.SynonymInfo(strWord)
If oSynInfo.Found = True Then
    For i1 = 1 To oSynInfo.MeaningCount
        vSynList = oSynInfo.SynonymList(i1)
        For i2 = 1 To UBound(vSynList)
            Debug.Print vSynList(i2)
        Next i2
    Next i1
End If
Set oSynInfo = Nothing
Set MSWord = Nothing
End Sub[/SIZE][/COLOR][/FONT]

http://www.mediafire.com/?1vjgz4t8ea58exa