Check out the .SaveFile method on the RTB control. It allows you to specify file type.
I use your suggestion but still the problem is not solved
I use the following command
Private Sub mnusave_Click()
cd.ShowSave
Form1.Caption = cd.FileName
rtb.SaveFile Form1.Caption
End Sub
Here rtb stand for rich text box & cd stands for common dialog
the following is save in file where I type just "this is a test page "
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl {\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 this is a test page
\par }