No va el rtf2

¿Hola Óscar que tal? Bien te explico como tengo el programa en un botón de comando tengo:
Private Sub Comando5_Click()
Dim sText As String
'----------------- M E T A R + T R E N D
If V1 = True Then
Me.T2 = ""
iFile = FreeFile
Open "C:\WINDOWS\Config\TRANSFERENCIA\metar" & T1 & ".doc" For Input As iFile
Do Until EOF(iFile)
Line Input #iFile, sText
Me.T2 = Me.T2 & sText & vbCrLf
Loop
Close iFile
'donde T2 es igual al codigo del aeropuerto en cuestion el cual lo he introducido en un principio en un textbox.....pero cuando pongo richtextbox0=T2 no es este codigo sino el contenido de lo que se baja de internet de la zona de metar
RichTextBox0 = T2
RichTextBox0.SelStart = 17
RichTextBox0.SelLength = 4
RichTextBox0.Selbold = True
RichTextBox0.SelColor = 7 '4227072
RichTextBox0.SelStart = 22
RichTextBox0.SelLength = 2
RichTextBox0.SelColor = 7 '16776960
RichTextBox0.SelStart = 24
RichTextBox0.SelLength = 4
RichTextBox0.SelColor = 7 '255
RichTextBox0.SelStart = 28
RichTextBox0.SelLength = 1
RichTextBox0.Selbold = True
RichTextBox0.SelColor = 7 '16711680
RichTextBox0.SelStart = 0
RichTextBox0.SelLength = 2000
highlightwords RichTextBox0, "NOSIG", vbBlack, False, True, False
highlightwords RichTextBox0, "BECMG", vbRed, False, True, False
highlightwords RichTextBox0, "FM", vbRed, False, True, False
highlightwords RichTextBox0, "PROB", vbRed, False, True, False
highlightwords RichTextBox0, "TEMPO", vbRed, False, True, False
highlightwords RichTextBox0, "Q", vbBlack, False, True, False
Todo funciona de maravilla lo que pasa es que si cambio el richtextbox0 por RTF2 pues cuando digo RTFcontrol=T2 no lo reconoce etc etc etc...
Todos los ejemplos funcionan a través de datos introducidos previamente en tablas y la verdad no se como acomodarlos a lo que quiero hacer...
Se te ocurre alguna idea...
Gracias, un saludo Óscar