AH! Tengo este codigo por si os sirve de ayuda...

[Marval]

Dim speller As Object
Dim TXT As String
Dim new_txt As String
Dim Pos As Integer

On Error GoTo OpenError
Set speller = CreateObject("WordPro")
On Error GoTo 0

speller.FileNew
speller.Insert rtfRichTextBox1.Text
speller.OpenSpelling 'Cuadro de ortografía
speller.EditSelectAll
TXT = speller.Selection()

If Right$(TXT, 1) = vbCr Then _
TXT = Left$(TXT, Len(TXT) - 1) 'Carácter de retorno
new_txt = ""
Pos = InStr(TXT, vbCr) 'Primera posición del carácter retorno

Do While Pos > 0
new_txt = new_txt & Left$(TXT, Pos - 1) & vbCrLf 'Retorno y avance línea
TXT = Right$(TXT, Len(TXT) - Pos) 'Siguiente línea
Pos = InStr(TXT, vbCr)
Loop

new_txt = new_txt & TXT
rtfRichTextBox1.Text = new_txt
Exit Sub

OpenError:
MsgBox "Error" & Str$(Err.Number) & _
" opening WordPro." & vbCrLf & _
Err.Description