Saving a Text File

[JBD2]

Open and Print are not "open" and "print" (confusing?), those commands just create the text file. I have edited the code so it tells you what each thing does and makes it so you just have to type the file name.

Private Sub Command1_Click()
'Open the Common Dialog Box with A "Save" Button
cd1.ShowSave
'If Cancel Is pushed ignore the code after this line
On Error Resume Next
'Create a text file with the filename from common dialog (save)
Open cd1.FileName & ".txt" For Output As #1
 Print #1, Text1.Text
Close #1
End Sub

That code saves the .txt, if you need help on printing I dont know how to do that, sorry. Oh, and for the save thing, you only need to have one common dialog box.