Ortografia en Visual con Word Pro

[Marval]

Necesito saber como corregir la ortografia en visual 6.0 dentro de un richtextbox. Tengo una opción en el menú que es ortografia. Lo malo que en vez de con Word, he de hacerlo con Lotus Word pro.
Envio el codigo por si sirve. NECESITO AYUDA.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("WordPro") (Aqui ponía antes Word.Basic, habrá que cambiar el objeto, para el word pro, pero cómo???)
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
End Sub


GRACIAS DE ANTEMANO

[Marval]

Creo que ese objeto es lo unico que me hace falta, si podeis corregirme el codigo y DECIRME el objeto, lo agradecería de todo corazon. estoy de prácticas, y sino me suspenderán. BESOS