1. make a Textbox.
2. make a commonDialog and name it CD.
3. make a button. The caption is Save.
4. Double click Save then type that :

Code:

Private Sub cmd1_Click()
On Error GoTo errhandler
With CD
.DialogTitle = "Where To Save?"
.Filter = "Text Files (*.txt)|*.txt"
.DefaultExt = "*.txt"
.CancelError = True
.ShowSave
End With

Open CD.FileName For Output As #1

Print #1, Text1.Text

Close #1


Exit Sub

errhandler:
Exit Sub

End Sub

Finish...

SPECIAL THANKS TO Arcady FOR THE TUTORIAL

-k0j0e