[Amin_Mansouri]

کد:

Private Sub Form_Load()
Text4.Text = Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text
Dim sFileText As String
Dim iFileNo As Integer
  iFileNo = FreeFile
      'open the file for writing
  Open "C:\Test.txt" For Output As #iFileNo
'please note, if this file already exists it will be overwritten!

      'write some example text to the file
  Print #iFileNo, Text4.Text


      'close the file (if you dont do this, you wont be able to open it again!)
  Close #iFileNo
End Sub