textboxları not defterine kaydetme

[osmanfenerli1907]

merhaba
bir userformda 5 tane textbox var.Biz butona tıklayınca bu textboxları bir .txt uzantılı dosya halinde masaüstüne nasıl kaydedebiliriz.ancak masaüstüne kendisi bir kayıt.txt uzantılı dosya açacak ve kaydedecek. şimdiden teşekkürler
iyi ki varsınız

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Not: Textbox isimlerinin birden beşe kadar ardışık gittiği kabul edilmiştir.

Private Sub CommandButton1_Click()
yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Set dosya = CreateObject("Scripting.FileSystemObject").CreateTextFile(yol & "\kayıt.txt", True, False) 'İlk true Overwrite,İkinci False ASCII true olursa Unicode
For a = 1 To 5
dosya.write Controls("textbox" & a)
dosya.WriteLine
Next
dosya.Close
End Sub