I am having a hard time getting a 'save' sub-routine working correctly. Here's the code I am using:

PUBLIC SUB Save_Click()
DIM lines AS String
DIM destination AS String
DIM numFile AS Integer
lines = ListBox.Contents
Dialog.Title = "Please, select a file"
Dialog.Filter = ["Minder data (*.data)"]
IF NOT Dialog.SaveFile() THEN
IF Right(Dialog.Path, 5) <> ".data" THEN 
destination = Dialog.Path & ".data"
ELSE 
destination = Dialog.Path
END IF
File.Save(destination, lines)
ENDIF 
END

Thanks alot in advance!

Brian

And the language is?
An educated guess says Visual Basic or VbScript but confirmation would be better

Oh! and

What exactly is it saving?