Private Sub Comman1_Click()
On Local Error Resume Next
CommonDialog1.CancelError = True
On Error GoTo Son
CommonDialog1.DialogTitle = "Farklı Kaydet"
CommonDialog1.Filter = "Komut Dosyası (*.bat)|*.bat|Yeni Metin Belgesi(*.txt)|*.txt|Word Dosyası(*.docx)|*.docx|Excel(*.xltx)|*.xltx|VBE(*. vbe)|*.vbe"
CommonDialog1.FileName = ""
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text;
Close #1
MsgBox "Kayıt Başarı İle Tamamlanmıştır", vbInformation, "Başarılı"
Son:
End Sub

Boyle Bir Kodum Var Arkadaşlar Bunu Farklı Kaydediyor Ama Kaydedilen Dosyayı Acamıyorum Yardım Ederminiz Saol
__________________