Hi all,

I am new at this and really don't know how to use a
dialog box to save a file as. I found a sample to
open a file, but not a save as.

Here is a sample code:

Private Sub Command1_Click()

' IS THIS SUPPOSED TO SWITCH TO SAVE AS?

CommonDialog1.Flags = cdlOFNCreatePrompt

' default directory
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "All Files (*.*)|*.*|Text " & _
" Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' Specify default filter.
CommonDialog1.FilterIndex = 2

' Display the Open dialog box.
CommonDialog1.ShowOpen
' Call the open file procedure.
' OpenFile (CommonDialog1.filename)
fileout = CommonDialog1.FileName

End Sub