Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
Dim sfile As String
Dim dnr As Integer
        sfile = "E:\1.txt"
        dnr = FreeFile()
        FileOpen(dnr, sfile, OpenMode.Output)
 
        Print(dnr, TextBox1.Text)
End Sub