Create a Save Button

[Winky]

I need to create a button that allows the user to save the information they have just enetered does any1 no the code

 

[ctlin]

here's what i used:
======================
Private Sub Command3_Click()
Dim mFileSysObj As New FileSystemObject
Dim mFile As File
Dim mTxtStream As TextStream

If mFileSysObj.FileExists("c:\clients.dat&quot = False Then
Call mFileSysObj.CreateTextFile("c:\clients.dat&quot 'create new clients.dat
Set mFile = mFileSysObj.GetFile("c:\clients.dat&quot
Set mTxtStream = mFile.OpenAsTextStream(ForAppending)
Call mTxtStream.WriteLine("whatever you want to write&quot
Call mTxtStream.Close
Else
Set mFile = mFileSysObj.GetFile("c:\clients.dat&quot
Set mTxtStream = mFile.OpenAsTextStream(ForAppending)
Label4.Caption = mFile.Path
Call mTxtStream.WriteLine(strBanner) 'writes to file
Call mTxtStream.Close
End If
End Sub
==================