Private Sub mnuFileSaveAs_Click()

CommonDialog1.Filter = "Text (*.txt)|*.txt|" 'You can add other File Names here
CommonDialog1.ShowSave

Open CommonDialog1.Filename For Output As #1
Print #1, Text1.Text
Close #1

End Sub

I'm getting an error 75 path/file access error when I go to save the file, but then selected cancel button instead.

Can anyone help?