Получаю путь до файла, потом закрываю приложение. Приложение закрылась, но оно осталось в процессах. Что не так делаю?

Dim OFName As OPENFILENAME
Dim rc1, A, path
With OFName
.hwndOwner = Dbo_Plat.hwnd
.lStructSize = Len(OFName)
.lpstrFilter = "Файлы шаблонов (*.txt)" + Chr$(0) + "*.txt" + Chr$(0)
.lpstrFile = Space$(254)
.nMaxFile = 255
.lpstrFileTitle = Space$(254)
.nMaxFileTitle = 255
.lpstrInitialDir = "P:\INSTCLNT\INI\"
.flags = OFN_OPENEXISTING Or OFN_EXPLORER


rc1 = GetOpenFileName(OFName)
If rc1 > 0 Then
A = InStr(.lpstrFile, Chr(0))
path = Mid(.lpstrFile, 1, A - 1)
End If

End With

мне не нужно чтоб оно закрывалось само. Мне надо выбрать файл по работать с ним и потом закрыть приложение.

Спасибо разобрался!