Visual Basic - ORTOGRAFIA CON WORDPRO

Necesito poder corregir la ortografía dentro de un richtextbox que tengo en mi programa de Vb. Lo he conseguido hacer más o menos con el Word, pero necesito hacerlo con el Lotos WordPro porque éste no me sirve. Si alguien puede ayudarme que me diga el código.
GRACIAS

Tengo este codigo con el word, pero al no tenerlo instalao me da una licencia, y por eso e de hacerlo con el wordpro. Os lo pongo por si sirve de algo... GRACIAS

Private Sub mnuOrtografia_Click()
Dim speller As Object
Dim TXT As String
Dim new_txt As String
Dim Pos As Integer

On Error GoTo OpenError
Set speller = CreateObject("Word.Basic")
On Error GoTo 0

speller.FileNew
speller.Insert rtfRichTextBox1.Text
speller.ToolsSpelling '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$(Error.Number) & _
" opening Word." & vbCrLf & _
Error.Description
End Sub