form üzernden txt formatlı kaydetme(vbs uzantılı)

Merhaba
ekteki örnek dosyamda tablo1 alanında tek satır bilgi içeren bir yazı alanları bulunmakta.
form1de bu alanlardaki bazı alanları düzenlemek için oluşturulmuş durumda.
yapmak istediğim form1 alanından bazı metinleri değiştirdiğimde "vbs oluştur" butonuna bastığımda tablo1 de bulunan tek satırdaki tüm sütün içindeki metinlerin yanyana olacak şekilde txt dosyasına deneme.vbs adı ile kaydedilmesini sağlamak.
bir nevi vbs mesaj oluşturucu gibi birşey yapmak istiyorum.
şimdiden cevap yazacak ve yardımcı olacak arkadaşlarıma teşekkür ederim.

saygılarımla.

tablodan değilde ekrandakileri yazdırdığınızı düşünürsek.

Dim Yazdir as string    

Open Application.CurrentProject.Path & "\Deneme.VBS" For Output As #1

  Yazdir=me.mesaj1 & me.mesaj2 & me.mesaj3 & me.mesaj4 & ........ 

  Print #1, Yazdir

Close #1

sayın Yandemir
cevabınız için çok teşekkür ederim.
kod çalışıyor. sağolun.