Sub SaveINI
Dim tw As TextWriter
tw.Initialize(File.OpenOutput(DirName, FileName, False))
tw.WriteLine("name=" & EditText1.text) ' writes name
tw.WriteLine("address=" & EditText2.text) ' writes address
tw.WriteLine("city=" & EditText3.text) ' writes city
EditText1.Wrap = False
EditText2.Wrap = False
EditText3.Wrap = False
tw.Close 'Close and make file
End Sub