Dim objSpellChecker, iLoop 'Create an instance of the SpellChecker Set objSpellCheck = Server.CreateObject("SpellCheck.ClsChecker") objSpellChecker.UseMSWord = False 'We're not using MSWord objSpellChecker.LookupSynonym "Quick" 'Lookup the synonym for "quick" 'Loop through the returned words: Response.Write "The following synonyms for 'Quick' exist: " For iLoop = 1 To objSpellChecker.SynonymWords("Quick").SuggestedWords.Count Response.Write objSpellChecker.SynonymWords("Quick").SuggestedWords(iLoop).word Response.Write " " Next