Text Dosyaya Formatlı Aktarma

Adı :
Soyadı :
Tel No:
E-mail :

Bilgi = Bilgi & "Adı: "& dbKayit.Ad & VbCrLf
Bilgi = Bilgi & "Soyadı: "& dbKayit.Adres & VbCrLf
Bilgi = Bilgi & "Tel No: "& dbKayit.Tel & VbCrLf
Bilgi = Bilgi & "E-Mail: "& dbKayit.Email & VbCrLf & VbCrLf

Open "Bilgi.Txt” For Output As #1 Print #1, BilgiClose #1