CommonDialog Saber extensión antes de guardar o abrir

[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