AYUDA !!: Problematica con RichTextBox y corrector Ortografico

Migue
12 de Mayo del 2004
Gracias de antemano si alguien me puede echar una mano....

Os comento, tengo diferentes controles RichTextBox sobre estos quiero aplicarles el corrector ortográfica de Ms-Word, con la siguiente funcion:

Public Sub Ortografia(ByVal rtf As RichTextBox)
Dim MSWord As Object, Texto As String
Set MSWord = CreateObject("Word.Basic")
MSWord.AppMinimize
MSWord.AppHide
MSWord.FileNewDefault
MSWord.EditSelectAll
MSWord.EditCut
MSWord.Insert rtf.Text
MSWord.StartOfDocument
On Error Resume Next
MSWord.ToolsSpelling
On Error GoTo 0
MSWord.EditSelectAll
Texto = MSWord.Selection
If Mid(Texto, Len(Texto), 1) = Chr(13) Then Texto = Mid(Texto, 1, Len(Texto) - 1)
If Len(Texto) > 1 Then rtf = Texto
MSWord.FileCloseAll 2
MSWord.AppClose
MsgBox "Correción ortográfica terminada", vbInformation
End Sub

Funciona correctamete SALVO EN UN CASO CONCRETO... si el Richtextbox tiene aplicado algun formato a ese txto (negrita, cursiva, color, ...) cuando me vuelve a cargar los datos sobre el control pierde todos los formatos. He probado a cambiar la información que se le pasa al objeto de Word... pero sio sin encontrar la solucion... HAY ALGUIEN QUE ME PUEDA AYUDAR ??... gracias