Visual Basic - AYUDA!!: Problematica RichText con Ortografia

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

bueno por lo visto en el codigo, pienso que el problema esta con que por ejemplo tienes una palabara en negrita que esta errada, activamos el programa lo revisa y lo re-escribe, todo ok !
pero donde guardaste las caracteristicas de la letra que te interesa como sabe el corrector ortografico que la palabra debe quedar en negrita
y que su tamaño de fuente es 15 por decir algo.
solo tendrias que adicionar codigo a tu rutina donde evalues :
1. fuente
2.tamaño
3.fondo
4.texto
5. etc.(osea todo lo que te interese mantener)