السلام عليكم ورحمة الله وبركاته ...

أما بعد

فأنا أنفذ مشروع في الفيجوال بيسك 6 و هو محرر نصوص ولكن واجهت صعوبة في حفظ النص المكتوب بعد تغيير تنسيقه أي عندما أغير نوع الخط من الـ (commonDialog) طبعاً بيحفظ النص بصيغة ملف غير معروف أي يحتاج إلى فتح باستخدام فما العمل لكي أستطيع حفظ النص بصيغة txt مع التنسيق المنفذ في المحرر؟؟؟؟

علماً أني أستخدم الكود التالي:

Private Sub mnusaveas_Click()

Dim fso As Object
Dim ts As Object
dlgsave.ShowSave
i = 2
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.opentextfile(dlgsave.FileName, 2, True, -2)
ts.write txteditor.Text
Set fso = Nothing

end sub

الرجاء الرد بسرعة بطريقة مفيدة وشكراً