¿Que tengo mal para abrir .RTF en el RichTextBox?

[chcma]

Vereis, tengo un problema y no soy quien a solucionarlo.

Cuando abro un fichero rtf me da error, ¿Alguien sabe por que?

Aqui tengo el codigo:
CDialogo.Filter = "Archivos RTF (*.rtf)|*.rtf|Archivos de Texto (*.txt)|*.txt"
CDialogo.ShowOpen

On Error GoTo ExAbrir
If CDialogo.FilterIndex = 1 Then
RTB.LoadFile CDialogo.FileName, vbCFRTF
Else
RTB.LoadFile CDialogo.FileName, vbCFText
End If
Exit Sub
ExAbrir:
MsgBox ("Error Abrir: " & ExAbrir.Description)


Vamos, que por más que lo intento, no soy capaz de abrir un fichero en su formato, si es TXT quiero que el RichBox lo interprete como TXT, y si es RTF que lo interprete como tal.