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

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

Не подскажите как сделать кнопку при нажатие которой можно будет указать путь куда сохранится файл. и при этом создастся пака. Т.е я нажимаю на кнопку появляется мини проводник, указываешь путь (например на рабочий стол) и жмеш ОК. и в конце должна на рабочем столе появится пака с фапйлами

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

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

                            Private Sub Command1_Click()
CommonDialog1.ShowSave
CommonDialog1.DialogTitle = "Сохранить файл как"
Open CommonDialog1.FileName For Output As 1
End Sub
                        