Function CheckSpell(IncorrectText as string) as string
Dim Word As Object, retText$ 
On Error Resume Next 
' 建立对象并打开 WORD
Set Word = CreateObject("Word.Basic") 

' 把需要检查的 STRING 放到 WORD 
Word.AppShow 
Word.FileNew 
Word.Insert IncorrectText 

' 运行 WORD 拼写检查 
Word.ToolsSpelling 
Word.EditSelectAll 

' 取返回值 
retText = Word.Selection$()
CheckSpell = Left$(retText, Len(retText) - 1) 

'关闭文件并回到 VB 应用
Word.FileClose 2 
Show 

Set Word = Nothing 
End Function