Вывести диалоговое окно сохранения файла - VB

Формулировка задачи:

Перешол с VBA на VB6 и охренел, нечего я оказываетсья незнаю! вапрос такой: есть форма на ней текст бокс!!! есть меню, там кнопка сохронить! так вто нечего у меня не получаеться нужен код чтобы при выборе из меню сохранить вылетало деалоговое окно тип Save as и по умолчанию расширение было txt

Решение задачи: «Вывести диалоговое окно сохранения файла»

textual
                            Листинг программы 
                        

                                CommonDialog1.FileName = 'Your_file.txt'
    CommonDialog1.Filter = 'Text (*.txt)|*.txt'
    CommonDialog1.ShowSave
                        