Problema al crear Libro de Excel

[cadesa]

Hola como estan, pues bien aqui con otro problema mas, lo que ocurre es lo siguiente:

Tengo una aplicación que genera un archivo de excel y lo guarda en una ruta predeterminada, al final del código pongo esto:

Código:

.....
        Dim _url As String = Environment.CurrentDirectory + "\Libro1.xls"

        If File.Exists(_url) Then
            File.Delete(_url)
        End If

        objLibroExcel.SaveAs(_url)
        m_Excel.Quit()
        m_Excel = Nothing
        objHojaExcel = Nothing
        objLibroExcel = Nothing
        GC.Collect()

Esto crea el archivo en el directorio donde estoy ejecutando la aplicación, pero tengo el problema que el proceso de Excel no lo "mata" o "cierra" porque luego al ver en el administrador de tareas deja el proceso y luego al querer llamar al archivo da error en vs diciendo "File not Found" pero el código que utilizo para verificar si existe es el siguiente:

Código:

If existe_directorio(Environment.CurrentDirectory + "\Libro1.xls")  Then
    Call Shell(Environment.CurrentDirectory +  "\Libro1.xls", AppWinStyle.MaximizedFocus)
Else
    Msgbox("No se puede abrir el archivo")
End If


''''Existe Directorio 
Private Function existe_directorio(ByVal _sFileName As String) As Boolean
        Dim fFile As New System.IO.FileInfo(_sFileName)
        existe_directorio = IIf(Not fFile.Exists, False, True)
End Function

Y la verificación si se realiza y da verdadero, me pueden ayudar con este problema debido a que ya llevo vario tiempo investigando y no he resuelto nada.