Saving???

[jeffro]

I'm trying to save data that is in my preview form. I can get the file to save but cannot get the data to write to the file. I'm having so much trouble with this so if anyone can help me I would greatly appreciate it.
Here is what I have so far:

Private Sub mnuFileSaveAs_Click()

On Error Resume Next

CommonDialog1.Filter = "All Text Files (*.txt)|*.txt"
CommonDialog1.ShowSave

strOpenFile = CommonDialog1.FileName

Set ts = fso.CreateTextFile(strOpenFile, True)

strData = Text1.Text

ts.Write (strData)
ts.Close

End Sub

An error comes up saying that it does not like the Text1.Text. ?????

[DiGiTaIErRoR]

open "c:\pornlist.txt" as output as #1
print #1, text1.text
close #1

Word to your Mother,