Работа с диалогами

[Shizuku]

Как работать с обычным диалогом открытия файла? То, что у меня получилось, можно увидеть в приложении. В процессе работы с таким диалогом "вылазят" лишние диалоги и ошибки времени выполнения.
Заодно подскажите, как сделать стандартный "Save as..." для своего формата и без ошибок.

Приложение:

Код: Выделить всё

Public Sub OpenDialogShow()
Application.Dialogs(xlDialogOpen).Show arg1:="*.lrc"
End Sub

[RayShade]

Поиском по форуму.