CommonDialog Saber extensión antes de guardar o abrir

[chcma]

La cuestión es que cuando quiero guardar un fichero, tengo en el commondialog el filter establecido:

CDialogo.Filter = "Archivos RTF (*.rtf)|*.rtf|Archivos TXT (*.txt)|*.txt"
CDialogo.ShowSave

RTB.SaveFile CDialogo.FileName

Pero claro, no me lo guarda con la extenxion seleccionada.

Como podria hacer para que:

If CDialogo.FiltroSeleccionado = ".txt"
RTB.SaveFile CDialogo.FileName, vbCFText
else
RTB.SaveFile CDialogo.FileName, vbCFRFT
end if

En fin haber si pueden ayudarme. Y Gracias.

[OYEME]

creo que la solucion seria:
If right(CDialogo.Filename,3)= "txt"
RTB.SaveFile CDialogo.FileName, vbCFText
else
RTB.SaveFile CDialogo.FileName, vbCFRFT
end if

[OYEME]

o si no
If CDialogo.FilterIndex=1 then '1 si escogiste el primer filtro si escogiste el 2 filtro filterindex valdra 2
RTB.SaveFile CDialogo.FileName, vbCFText
else
RTB.SaveFile CDialogo.FileName, vbCFRFT
end if