do you want to open it for Append(add to) or Output(overwrite)?


Code:
Private Sub Command1_Click()

'append(add to)
  Open "c:\text.txt" For Append As #1
    Print #1, Text1.Text
  Close #1

'output(overwrite)
  Open "c:\text.txt" For Output As #1
    Print #1, Text1.Text
  Close #1

End Sub