Ending instance in VBA Access

Question

Below is my custom code for file dailog application which performs a check, if a particular sheet exists or not. whenever I run this code an instance is created and can be viewed in task manager. I would like to end this instance, as this code is dependent
on another code. cansomebody guide me through at whatpoints instace can be ended. Its kinda bugging me!
Private ApXLe As Object
Private Const Metadatasheet As String = "Metadatasheet"
Public Function Dailogbox()
Dim strFile As String
Dim xlWShe As Object
Dim fld As DAO.Field
Set ApXLe = CreateObject("Excel.Application")
Set xlWShe = Nothing
Do
With Application.FileDialog(1) ' msoFileDialogOpen
.Filters.Clear
.Filters.Add "Excel workbooks (*.xls*)", "*.xls*"
If .Show Then
strFile = .SelectedItems(1)
Set xlWShe = GetWorksheet(ApXLe, strFile)
Forms("Export").Text14 = strFile
'ApXLe.Quit
'Set ApXLe = Nothing
'Exit Function
Else
MsgBox "No workbook specified!", vbExclamation
ApXLe.Quit
'Set ApXLe = Nothing
Exit Function
End If
End With
Loop While xlWShe Is Nothing
End Function
Private Function GetWorksheet(ApXLe, file) As Object
Dim xlWBke As Object
Set GetWorksheet = Nothing
Set xlWBke = ApXLe.Workbooks.Open(file)
On Error Resume Next
Set GetWorksheet = xlWBke.Worksheets(Metadatasheet)
On Error GoTo 0
If Not GetWorksheet Is Nothing Then _
Exit Function
MsgBox "Workbook '" & file & "' doesn't contain sheet '" & Metadatasheet & _
"'. Choose the correct workbook.", vbExclamation
'xlWBke.Close Flase
'Set xlWBke = Nothing
End Function

Answer 1

I assume that this is not the complete code of Dailogbox - you open a workbook but you don't do anything useful with it.
If you want to do something with the workbook, place code for it below the line
    Loop While xlWShe
Is Nothing
and below that code, insert
    xlWShe.Parent.Close SaveChanges:=False ' or True if you want to save changes
    ApXLe.Quit
Regards, Hans Vogelaar (http://www.eileenslounge.com)