SoloCodigo

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

Me gustaria saber como poder duplicar un combo de un formulario en otro FORM con los valores de este (list, etc)... para no tener que volver a atarcar en cada formulario a la BBDD y calgar los mismo valores,
     Muchas gracias   de antemano.