Este truco lo acabo de encontrar en la sección Tips de Allapi Networks (http://www.allapi.net). Debes crear un formulario que contenga un TextBox (Multiline = True, ScrollBars = 2) y un CommandButton. Luego, agrégale este código:
Private Sub Command1_Click()
Text1 = SpellCheck(Text1)
End Sub
Public Function SpellCheck(ByVal IncorrectText$) As String
Dim Word As Object, retText$
On Error Resume Next
Set Word = CreateObject("Word.Basic")
Word.AppShow
Word.FileNew
Word.Insert IncorrectText
Word.ToolsSpelling
Word.EditSelectAll
retText = Word.Selection$()
SpellCheck = Left$(retText, Len(retText) - 1)
Word.FileClose 2
Show
Set Word = Nothing
End Function
No requiere librerías cargadas. Yo lo probé y anda bastante bien. Lo único malo es que los saltos de línea no los reconoce bien. Pero eso se soluciona colocando la siguiente linea al final de la función SpellCheck:
SpellCheck = Join(Split(SpellCheck, vbCr), vbCrLf)
Espero que te resulte...
