Mozes i ovako. Stavi 3 TextBox kontrole (Text1,Text2,Text3) i dugme Command1 na formu i u kod editor prekopiraj ovo.
Code:
Private Sub Command1_Click()
Dim fso, fs
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.CreateTextFile("C:\text.txt")
fs.Write Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text ' vbCrLf ovo je znak za novi red a & spaja stringove
fs.Close
End Sub