Visual Basic - AYUDA!: Problematica con RichtText y 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