Visual Basic - AYUDA DESESPERADA SOBRE ORTOGRAFIA EN VB

Necesito corregir la ortografía en un richtextbox en el que abro un documento rtf. Cómo estoy de practicas en un ayuntamiento, no tienen instalado el word, por las licencias, y utilizan el Lotus Word Pro. Necesito saber un objeto que me valga para hacerlo. He buscado en mil sitios, y nadie me dice nada, SUSPENDERAN MIS PRACTICAS.
El código que tengo es este.

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")--->AQUI IRIA OTRA COSA, WORDPRO. ALGO . O eso creo que es lo que me falta.
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.Des

GRACIAS DE ANTEMANO POR TODA LA AYUDA QUE ME DEIS