Here's another small bit of code that shows you how to save the contents of TextBox1 to test.txt
' Get a free file number
FileNum = FreeFile
' Create Test.txt
Open App.Path & "Test.txt" For Output As FileNum
' Write the contents of TextBox1 to Test.txt
Print #FileNum, TextBox1.Text
' Close the file
Close FileNum
Comments